! engines/fortran/main.f90
! ------------------------
! Fortran 动力学模拟引擎（模板/参考实现）。
!
! 接口与 C 引擎一致：
!   输入: param.json, <input_dir>/coord.txt, connection.txt, bond.txt
!   输出: <output_dir>/trajectory.txt (JSON)
!
! 编译:
!   gfortran -O3 -march=native -o build/dynamics_f90 main.f90
!
! 用法:
!   ./build/dynamics_f90 <input_dir> <output_dir> <param_json>

program dynamics_f90
    implicit none
    character(len=256) :: input_dir, output_dir, param_path
    integer :: narg

    narg = command_argument_count()
    if (narg < 3) then
        write(*,*) "用法: dynamics_f90 <input_dir> <output_dir> <param_json>"
        stop
    end if

    call get_command_argument(1, input_dir)
    call get_command_argument(2, output_dir)
    call get_command_argument(3, param_path)

    ! TODO: 实现与 C 引擎相同的物理模拟
    !
    ! 参考实现:
    !   1. 读取 param.json → NT, DT, G, B, ...
    !   2. 读取 coord.txt → 原子数, 质量, 位置, 速度
    !   3. 读取 connection.txt + bond.txt → 成键参数
    !   4. Leapfrog 循环 NT 步
    !   5. 输出 trajectory.txt (JSON 格式)

    write(*,*) "[Fortran-engine] 待实现"
end program dynamics_f90