Ideone.com

fork download

PROGRAM cluster
!--------------------------------------------------------!
! Example Molecular Dynamics Program ver.2.2             !
!                                                        !
! [プログラム概要]                                       !
!  ・ヴェルレ法による時間発展（数値積分）                !
!  ・Ｎ粒子孤立系に対するNVEアンサンブル                 !
!  ・Lennard-Jones (12-6) ポテンシャル                   !
!                                                        !
! [改訂履歴]                                             !
!  2002.10.05 ver 1.0 岡田 勇                            !
!  2011.06.08 ver 2.0 北 幸海 (Fortran 90化)             !
!  2020.12.14 ver 2.1 北 幸海 (単純化)                   !
!  2020.12.15 ver 2.2 北 幸海 (ウェブ実習用に標準出力化) !
!--------------------------------------------------------!
IMPLICIT NONE
 
!----- 固定変数 (変更しないこと) -----
INTEGER, PARAMETER :: &
  NpTot = 2             ! 粒子数
REAL(8), PARAMETER :: &
  Eps   = 1.d0,       & ! L-Jポテンシャルのパラメータ１
  Sigma = 1.d0,       & ! L-Jポテンシャルのパラメータ２
  Mass  = 1.d0          ! 粒子の質量
 
 
!----- ユーザー変数 (課題に応じて変更する変数) -----
! Dt: 時間ステップ
! MDStep: ステップ数（繰り返しの回数）
!   --> Dt  = 1.d-2〜1.d-3が適当. Dt*MDStep= 1〜3 とする.
!   --> サーバーに負荷をかけないよう Dt ≧ 1.d-5 とする
INTEGER, PARAMETER :: MDStep  = 2000    ! 総ステップ数
REAL(8), PARAMETER :: Dt      = 1.d-3   ! 時間ステップ
REAL(8), PARAMETER :: R2_ini  = 0.56d0  ! 粒子2の初期位置
REAL(8), PARAMETER :: V2_ini  = -2.0d0  ! 粒子2の初速
INTEGER, PARAMETER :: NOut    = 100     ! 出力データ数（MDStep以下で100を超えない整数）
 
 
!----- 以下の変数・配列はプログラム内で自動更新 -----
INTEGER i
INTEGER :: NSum = 0,     &    ! 蓄積の回数
           n    = 0,     &    ! 現在のステップ数
           PrintInt = 1       ! 出力間隔
REAL(8) :: &
  R0(3, NpTot) = 0.d0,      & ! 初期位置
  V(3, NpTot) = 0.d0,       & ! 速度
  R(3, NpTot) = 0.d0,       & ! 位置
  dR(3, NpTot) = 0.d0,      & ! 初期位置からの変位
  dR_prev(3, NpTot) = 0.d0, & ! 時刻t(n-1)とt(n)間の変位
  dR_next(3, NpTot) = 0.d0, & ! 時刻t(n)とt(n+1)間の変位
  F(3, NpTot) = 0.d0,       & ! 力
  T = 0.d0,                 & ! 運動エネルギー
  P = 0.d0,                 & ! ポテンシャルエネルギー
  H = 0.d0,                 & ! 全エネルギー（ハミルトニアン）
  H0 = 0.d0,                & ! 計算開始時の全エネルギー
  V0 = 0.d0,                & ! 計算開始時の平均速度
  MaxErrH = 0.d0,           & ! ハミルトニアンの最大誤差
  SumH = 0.d0,              & ! 蓄積されたハミルトニアン
  SumH2 = 0.d0,             & ! 蓄積されたハミルトニアンの二乗
  SumT = 0.d0,              & ! 蓄積された運動エネルギー
  SumT2 = 0.d0                ! 蓄積された運動エネルギーの二乗
 
 
!----- Safety net -----
if (Dt*MDStep > 3.d0) then
  write(6,*) 'Too long simulation time !!'
  stop
endif
 
 
!----- 各種設定値の出力 -----
PrintInt = MDStep/NOut
write(6,*) '=============================='
write(6,*) 'MD simulation by Verlet method'
write(6,*) '=============================='
write(6,*) ' # of particles    = ', NpTot
write(6,*) ' L-J parameters:'
write(6,*) '   --> Epsilon     = ', Eps
write(6,*) '   --> Sigma       = ', Sigma
write(6,*) ' Mass of particle  = ', Mass
write(6,*) ' Time step         = ', Dt
write(6,*) ' # of MD steps     = ', MDStep
write(6,*) ' Simulation time   = ', Dt*real(MDStep,8)
write(6,*) ' Print interval    = ', Dt*real(PrintInt,8)
write(6,*) 
 
 
!----- 粒子の初期情報の設定 -----
! 初期位置
R0(1,2) = R2_ini   ! 粒子1
R0(1,1) = -R0(1,2) ! 粒子2
 
! 初速
V(1,2) = V2_ini   ! 粒子1
V(1,1) = -V(1,2)  ! 粒子2
 
! 初速度の大きさの平均値
V0= 0.d0
do i=1, NpTot
  V0= V0 + V(1,i)**2 + V(2,i)**2 + V(3,i)**2 
enddo ! i
V0= sqrt(V0/real(NpTot,8))
 
 
!----- 0ステップ目での力の計算 -----
call ForcePotential (NpTot, n, MDStep, R0, dR, Eps, Sigma, P, F)
 
 
!----- 1ステップ目の座標を計算 -----
call Verlet (NpTot, n, MDStep, NSum, Dt, Mass, R0, P, R, F, V, &
             dR, dR_prev, dR_next, H, T, SumH, SumH2, SumT, SumT2)
 
 
!----- ハミルトニアンの初期値を保存 -----
H0 = H
 
 
!----- 出力 -----
! ヘッダー情報の出力
write(6,'(a)') '#time,  position,  velocity,  kinetic,  potential,  hamiltonian'
 
! 位置、速度などの出力.
call Output (0, PrintInt, NpTot, n, MDStep, NSum, Dt, R, H, T, P, V, &
             H0, V0, SumH, SumH2, SumT, SumT2, MaxErrH)
 
 
!----- 2ステップ目以降の時間発展 -----
do n= 1, MDStep
 
  ! nステップ目での力の計算
  call ForcePotential (NpTot, n, MDStep, R0, dR, Eps, Sigma, P, F)
 
  ! (n+1)ステップ目の座標を計算
  call Verlet (NpTot, n, MDStep, NSum, Dt, Mass, R0, P, R, F, V, &
               dR, dR_prev, dR_next, H, T, SumH, SumH2, SumT, SumT2)
 
  ! 出力
  call Output (0, PrintInt, NpTot, n, MDStep, NSum, Dt, R, H, T, P, V, &
               H0, V0, SumH, SumH2, SumT, SumT2, MaxErrH)
 
enddo ! n
 
 
!----- 各種平均値を出力 -----
call Output (1, PrintInt, NpTot, n, MDStep, NSum, Dt, R, H, T, P, V, &
             H0, V0, SumH, SumH2, SumT, SumT2, MaxErrH)
 
write(6,*) ' Done.'
write(6,*) 
 
!----- 主プログラムの終了 -----
END PROGRAM cluster
 
 
 
SUBROUTINE ForcePotential(NpTot, n, MDStep, R0, dR, Eps, Sigma, P, F)
!----------------------------------!
! ポテンシャルエネルギーと力の計算 !
!----------------------------------!
IMPLICIT NONE
INTEGER, INTENT(in)    :: NpTot, n, MDStep
REAL(8), INTENT(in)    :: R0(3,NpTot), dR(3,NpTot), Eps, Sigma
REAL(8), INTENT(inout) :: P, F(3,NpTot)
! Local stuff
INTEGER i, j
REAL(8) R1, R2, Rij(3), dpdr, drdv(3)
 
F(:,:)=0.d0 ; P=0.d0
 
do i= 1, NpTot
  do j= 1, NpTot
 
    if (i /= j) then
 
      ! dR: displacement from time 0 to time n
      Rij(:) = (dR(:,j) - dR(:,i)) + (R0(:,j) - R0(:,i))
      R2 = Rij(1)**2 + Rij(2)**2 + Rij(3)**2 
      R1 = sqrt(R2)
 
      ! potential energy
      P = P + 4.d0 * Eps * ((Sigma**2/R2)**6 - (Sigma**2/R2)**3)
 
      ! force
      dpdr = 4.d0 * Eps * (-12.d0*(Sigma**2/R2)**6 + 6.d0*(Sigma**2/R2)**3) / R1
      drdv(:) = -Rij(:) / R1
      F(:,i) = F(:,i) - dpdr*drdv(:)
 
    endif ! i /= j
 
  enddo ! j
enddo ! i
 
P = 0.5d0*P
 
return
END SUBROUTINE ForcePotential
 
 
 
SUBROUTINE Verlet(NpTot, n, MDStep, NSum, Dt, Mass, R0, P, R, F, V, &
                  dR, dR_prev, dR_next, H, T, SumH, SumH2, SumT, SumT2)
!--------------------------!
! Verlet法による座標の更新 !
!--------------------------!
IMPLICIT NONE
INTEGER, INTENT(in)    :: NpTot, n, MDStep
INTEGER, INTENT(inout) :: NSum
REAL(8), INTENT(in)    :: R0(3,NpTot), P, Dt, Mass
REAL(8), INTENT(inout) :: R(3,NpTot), F(3,NpTot), V(3,NpTot), dR(3,NpTot), &
                          dR_prev(3,NpTot), dR_next(3,NpTot), H, T, SumH,  &
                          SumH2, SumT, SumT2
! Local stuff
INTEGER i
 
!----- 0-th step -----
if (n == 0) then
  ! current position
  R(:,:) = R0(:,:) 
 
  ! dR = dR_next = R(Δt) - R(0) = V(0)Δt + a(0)*(Δt)^2/2   
  do i= 1, NpTot
    dR_next(:,i) = V(:,i)*Dt + 0.5d0*F(:,i)*Dt**2/Mass
    dR(:,i) = dR_next(:,i)
  enddo ! i
 
 
!----- later steps -----
elseif (n >= 1) then
  ! current position
  R(:,:) = R0(:,:) + dR(:,:)
 
  ! dR_next = R(t+Δt) - R(t) = R(t) - R(t-Δt) + a(t)*(Δt)^2   
  ! dR_prev = R(t) - R(t-Δt)
  ! dR      = R(t+Δt) - R(0)
  do i= 1, NpTot
    dR_next(:,i) = dR_prev(:,i) + F(:,i)*Dt**2/Mass
    dR(:,i) = dR(:,i) + dR_next(:,i)
    V(:,i) = 0.5d0 * (dR_next(:,i) + dR_prev(:,i)) / Dt
  enddo
 
endif
 
 
!----- Renaming for use at the next step -----
dR_prev(:,:)= dR_next(:,:)
 
 
!----- 運動エネルギーの計算 -----
T = 0.d0
do i= 1, NpTot
  T = T + 0.5d0 * Mass * (V(1,i)**2 + V(2,i)**2 + V(3,i)**2)
enddo
 
 
!----- ハミルトニアンの計算 -----
H = T + P
 
 
!----- 蓄積 -----
NSum  = NSum  + 1      ! 蓄積の回数
SumH  = SumH  + H      ! ハミルトニアン
SumH2 = SumH2 + H**2   ! ハミルトニアンの２乗
SumT  = SumT  + T      ! 運動エネルギー
SumT2 = SumT2 + T**2   ! 運動エネルギーの２乗
 
return
END SUBROUTINE Verlet
 
 
 
SUBROUTINE Output(mode, PrintInt, NpTot, n, MDStep, NSum, Dt, R, H, T, P, V, H0, V0, &
                  SumH, SumH2, SumT, SumT2, MaxErrH)
!------------!
! 結果の出力 !
!------------!
IMPLICIT NONE
INTEGER, INTENT(in)    :: mode, PrintInt, NpTot, n, MDStep, NSum
REAL(8), INTENT(in)    :: Dt, R(3,NpTot), H, T, P, V(3,NpTot), H0, V0, SumH, SumH2, SumT, SumT2
REAL(8), INTENT(inout) :: MaxErrH
! Local stuff
REAL(8) time, AveH, AveH2, AveT, AveT2, RMSD_H, RMSD_T
 
if (mode == 0) then
  !----- Output data at the current time -----
  time = Dt*real(n,8)
 
  if ( (n==MDStep) .or. (mod(n,PrintInt)==0) ) &
    write(6, '( e12.6, 4(e14.6), e23.15 )') time, R(1,2), V(1,2), T, P, H
 
  MaxErrH= max(MaxErrH, abs(H-H0)) ! Maximum error in Hamiltonian
 
 
elseif (mode == 1) then
  !----- Compute root mean square deviation (RMSD) -----
  ! compute averages
  AveH  = SumH /real(NSum,8)  ! ハミルトニアン
  AveH2 = SumH2/real(NSum,8)  ! ハミルトニアンの２乗
  AveT  = SumT /real(NSum,8)  ! 運動エネルギー
  AveT2 = SumT2/real(NSum,8)  ! 運動エネルギーの２乗
 
  ! compute RMSD
  RMSD_H = sqrt(abs(AveH2-AveH**2))
  RMSD_T = sqrt(abs(AveT2-AveT**2))
 
  ! print
  write(6, *)
  write(6, *) '---------'
  write(6, *) ' Summary '
  write(6, *) '---------'
  write(6, '( a, e23.15 )')    'Dt           =', Dt
  write(6, '( a, e23.15 )')    'V0           =', V0
  write(6, '( a, e23.15 )')    'RMSD(H)      =', RMSD_H
  write(6, '( a, e23.15 )')    'Max. err.(H) =', MaxErrH
  write(6, '( a, e23.15 )')    'Final pos.   =', R(1,2)
  write(6, '( 2(a, e23.15) )') '<H>=', AveH, ' +- ', RMSD_H
  write(6, '( 2(a, e23.15) )') '<T>=', AveT, ' +- ', RMSD_T
  write(6, '( a, i10 )')    'Norm. const.(NSum)=  ', NSum
 
endif
 
return
END SUBROUTINE Output

UFJPR1JBTSBjbHVzdGVyCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSEKISBFeGFtcGxlIE1vbGVjdWxhciBEeW5hbWljcyBQcm9ncmFtIHZlci4yLjIgICAgICAgICAgICAgIQohICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAhCiEgW+ODl+ODreOCsOODqeODoOamguimgV0gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAhCiEgIOODu+ODtOOCp+ODq+ODrOazleOBq+OCiOOCi+aZgumWk+eZuuWxle+8iOaVsOWApOepjeWIhu+8iSAgICAgICAgICAgICAgICAhCiEgIOODu++8rueykuWtkOWtpOeri+ezu+OBq+WvvuOBmeOCi05WReOCouODs+OCteODs+ODluODqyAgICAgICAgICAgICAgICAgIQohICDjg7tMZW5uYXJkLUpvbmVzICgxMi02KSDjg53jg4bjg7Pjgrfjg6Pjg6sgICAgICAgICAgICAgICAgICAgIQohICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAhCiEgW+aUueioguWxpeattF0gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAhCiEgIDIwMDIuMTAuMDUgdmVyIDEuMCDlsqHnlLAg5YuHICAgICAgICAgICAgICAgICAgICAgICAgICAgICEKISAgMjAxMS4wNi4wOCB2ZXIgMi4wIOWMlyDlubjmtbcgKEZvcnRyYW4gOTDljJYpICAgICAgICAgICAgICEKISAgMjAyMC4xMi4xNCB2ZXIgMi4xIOWMlyDlubjmtbcgKOWNmOe0lOWMlikgICAgICAgICAgICAgICAgICAgIQohICAyMDIwLjEyLjE1IHZlciAyLjIg5YyXIOW5uOa1tyAo44Km44Kn44OW5a6f57+S55So44Gr5qiZ5rqW5Ye65Yqb5YyWKSAhCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSEKSU1QTElDSVQgTk9ORQoKIS0tLS0tIOWbuuWumuWkieaVsCAo5aSJ5pu044GX44Gq44GE44GT44GoKSAtLS0tLQpJTlRFR0VSLCBQQVJBTUVURVIgOjogJgogIE5wVG90ID0gMiAgICAgICAgICAgICAhIOeykuWtkOaVsApSRUFMKDgpLCBQQVJBTUVURVIgOjogJgogIEVwcyAgID0gMS5kMCwgICAgICAgJiAhIEwtSuODneODhuODs+OCt+ODo+ODq+OBruODkeODqeODoeODvOOCv++8kQogIFNpZ21hID0gMS5kMCwgICAgICAgJiAhIEwtSuODneODhuODs+OCt+ODo+ODq+OBruODkeODqeODoeODvOOCv++8kgogIE1hc3MgID0gMS5kMCAgICAgICAgICAhIOeykuWtkOOBruizqumHjwoKCiEtLS0tLSDjg6bjg7zjgrbjg7zlpInmlbAgKOiqsumhjOOBq+W/nOOBmOOBpuWkieabtOOBmeOCi+WkieaVsCkgLS0tLS0KISBEdDog5pmC6ZaT44K544OG44OD44OXCiEgTURTdGVwOiDjgrnjg4bjg4Pjg5fmlbDvvIjnubDjgorov5TjgZfjga7lm57mlbDvvIkKISAgIC0tPiBEdCAgPSAxLmQtMuOAnDEuZC0z44GM6YGp5b2TLiBEdCpNRFN0ZXA9IDHjgJwzIOOBqOOBmeOCiy4KISAgIC0tPiDjgrXjg7zjg5Djg7zjgavosqDojbfjgpLjgYvjgZHjgarjgYTjgojjgYYgRHQg4omnIDEuZC01IOOBqOOBmeOCiwpJTlRFR0VSLCBQQVJBTUVURVIgOjogTURTdGVwICA9IDIwMDAgICAgISDnt4/jgrnjg4bjg4Pjg5fmlbAKUkVBTCg4KSwgUEFSQU1FVEVSIDo6IER0ICAgICAgPSAxLmQtMyAgICEg5pmC6ZaT44K544OG44OD44OXClJFQUwoOCksIFBBUkFNRVRFUiA6OiBSMl9pbmkgID0gMC41NmQwICAhIOeykuWtkDLjga7liJ3mnJ/kvY3nva4KUkVBTCg4KSwgUEFSQU1FVEVSIDo6IFYyX2luaSAgPSAtMi4wZDAgICEg57KS5a2QMuOBruWInemAnwpJTlRFR0VSLCBQQVJBTUVURVIgOjogTk91dCAgICA9IDEwMCAgICAgISDlh7rlipvjg4fjg7zjgr/mlbDvvIhNRFN0ZXDku6XkuIvjgacxMDDjgpLotoXjgYjjgarjgYTmlbTmlbDvvIkKCgohLS0tLS0g5Lul5LiL44Gu5aSJ5pWw44O76YWN5YiX44Gv44OX44Ot44Kw44Op44Og5YaF44Gn6Ieq5YuV5pu05pawIC0tLS0tCklOVEVHRVIgaQpJTlRFR0VSIDo6IE5TdW0gPSAwLCAgICAgJiAgICAhIOiThOepjeOBruWbnuaVsAogICAgICAgICAgIG4gICAgPSAwLCAgICAgJiAgICAhIOePvuWcqOOBruOCueODhuODg+ODl+aVsAogICAgICAgICAgIFByaW50SW50ID0gMSAgICAgICAhIOWHuuWKm+mWk+malApSRUFMKDgpIDo6ICYKICBSMCgzLCBOcFRvdCkgPSAwLmQwLCAgICAgICYgISDliJ3mnJ/kvY3nva4KICBWKDMsIE5wVG90KSA9IDAuZDAsICAgICAgICYgISDpgJ/luqYKICBSKDMsIE5wVG90KSA9IDAuZDAsICAgICAgICYgISDkvY3nva4KICBkUigzLCBOcFRvdCkgPSAwLmQwLCAgICAgICYgISDliJ3mnJ/kvY3nva7jgYvjgonjga7lpInkvY0KICBkUl9wcmV2KDMsIE5wVG90KSA9IDAuZDAsICYgISDmmYLliLt0KG4tMSnjgah0KG4p6ZaT44Gu5aSJ5L2NCiAgZFJfbmV4dCgzLCBOcFRvdCkgPSAwLmQwLCAmICEg5pmC5Yi7dChuKeOBqHQobisxKemWk+OBruWkieS9jQogIEYoMywgTnBUb3QpID0gMC5kMCwgICAgICAgJiAhIOWKmwogIFQgPSAwLmQwLCAgICAgICAgICAgICAgICAgJiAhIOmBi+WLleOCqOODjeODq+OCruODvAogIFAgPSAwLmQwLCAgICAgICAgICAgICAgICAgJiAhIOODneODhuODs+OCt+ODo+ODq+OCqOODjeODq+OCruODvAogIEggPSAwLmQwLCAgICAgICAgICAgICAgICAgJiAhIOWFqOOCqOODjeODq+OCruODvO+8iOODj+ODn+ODq+ODiOODi+OCouODs++8iQogIEgwID0gMC5kMCwgICAgICAgICAgICAgICAgJiAhIOioiOeul+mWi+Wni+aZguOBruWFqOOCqOODjeODq+OCruODvAogIFYwID0gMC5kMCwgICAgICAgICAgICAgICAgJiAhIOioiOeul+mWi+Wni+aZguOBruW5s+Wdh+mAn+W6pgogIE1heEVyckggPSAwLmQwLCAgICAgICAgICAgJiAhIOODj+ODn+ODq+ODiOODi+OCouODs+OBruacgOWkp+iqpOW3rgogIFN1bUggPSAwLmQwLCAgICAgICAgICAgICAgJiAhIOiThOepjeOBleOCjOOBn+ODj+ODn+ODq+ODiOODi+OCouODswogIFN1bUgyID0gMC5kMCwgICAgICAgICAgICAgJiAhIOiThOepjeOBleOCjOOBn+ODj+ODn+ODq+ODiOODi+OCouODs+OBruS6jOS5lwogIFN1bVQgPSAwLmQwLCAgICAgICAgICAgICAgJiAhIOiThOepjeOBleOCjOOBn+mBi+WLleOCqOODjeODq+OCruODvAogIFN1bVQyID0gMC5kMCAgICAgICAgICAgICAgICAhIOiThOepjeOBleOCjOOBn+mBi+WLleOCqOODjeODq+OCruODvOOBruS6jOS5lwoKCiEtLS0tLSBTYWZldHkgbmV0IC0tLS0tCmlmIChEdCpNRFN0ZXAgPiAzLmQwKSB0aGVuCiAgd3JpdGUoNiwqKSAnVG9vIGxvbmcgc2ltdWxhdGlvbiB0aW1lICEhJwogIHN0b3AKZW5kaWYKCgohLS0tLS0g5ZCE56iu6Kit5a6a5YCk44Gu5Ye65YqbIC0tLS0tClByaW50SW50ID0gTURTdGVwL05PdXQKd3JpdGUoNiwqKSAnPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09Jwp3cml0ZSg2LCopICdNRCBzaW11bGF0aW9uIGJ5IFZlcmxldCBtZXRob2QnCndyaXRlKDYsKikgJz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PScKd3JpdGUoNiwqKSAnICMgb2YgcGFydGljbGVzICAgID0gJywgTnBUb3QKd3JpdGUoNiwqKSAnIEwtSiBwYXJhbWV0ZXJzOicKd3JpdGUoNiwqKSAnICAgLS0+IEVwc2lsb24gICAgID0gJywgRXBzCndyaXRlKDYsKikgJyAgIC0tPiBTaWdtYSAgICAgICA9ICcsIFNpZ21hCndyaXRlKDYsKikgJyBNYXNzIG9mIHBhcnRpY2xlICA9ICcsIE1hc3MKd3JpdGUoNiwqKSAnIFRpbWUgc3RlcCAgICAgICAgID0gJywgRHQKd3JpdGUoNiwqKSAnICMgb2YgTUQgc3RlcHMgICAgID0gJywgTURTdGVwCndyaXRlKDYsKikgJyBTaW11bGF0aW9uIHRpbWUgICA9ICcsIER0KnJlYWwoTURTdGVwLDgpCndyaXRlKDYsKikgJyBQcmludCBpbnRlcnZhbCAgICA9ICcsIER0KnJlYWwoUHJpbnRJbnQsOCkKd3JpdGUoNiwqKSAKCgohLS0tLS0g57KS5a2Q44Gu5Yid5pyf5oOF5aCx44Gu6Kit5a6aIC0tLS0tCiEg5Yid5pyf5L2N572uClIwKDEsMikgPSBSMl9pbmkgICAhIOeykuWtkDEKUjAoMSwxKSA9IC1SMCgxLDIpICEg57KS5a2QMgoKISDliJ3pgJ8KVigxLDIpID0gVjJfaW5pICAgISDnspLlrZAxClYoMSwxKSA9IC1WKDEsMikgICEg57KS5a2QMgoKISDliJ3pgJ/luqbjga7lpKfjgY3jgZXjga7lubPlnYflgKQKVjA9IDAuZDAKZG8gaT0xLCBOcFRvdAogIFYwPSBWMCArIFYoMSxpKSoqMiArIFYoMixpKSoqMiArIFYoMyxpKSoqMiAKZW5kZG8gISBpClYwPSBzcXJ0KFYwL3JlYWwoTnBUb3QsOCkpCgoKIS0tLS0tIDDjgrnjg4bjg4Pjg5fnm67jgafjga7lipvjga7oqIjnrpcgLS0tLS0KY2FsbCBGb3JjZVBvdGVudGlhbCAoTnBUb3QsIG4sIE1EU3RlcCwgUjAsIGRSLCBFcHMsIFNpZ21hLCBQLCBGKQoKCiEtLS0tLSAx44K544OG44OD44OX55uu44Gu5bqn5qiZ44KS6KiI566XIC0tLS0tCmNhbGwgVmVybGV0IChOcFRvdCwgbiwgTURTdGVwLCBOU3VtLCBEdCwgTWFzcywgUjAsIFAsIFIsIEYsIFYsICYKICAgICAgICAgICAgIGRSLCBkUl9wcmV2LCBkUl9uZXh0LCBILCBULCBTdW1ILCBTdW1IMiwgU3VtVCwgU3VtVDIpCgoKIS0tLS0tIOODj+ODn+ODq+ODiOODi+OCouODs+OBruWIneacn+WApOOCkuS/neWtmCAtLS0tLQpIMCA9IEgKCgohLS0tLS0g5Ye65YqbIC0tLS0tCiEg44OY44OD44OA44O85oOF5aCx44Gu5Ye65YqbCndyaXRlKDYsJyhhKScpICcjdGltZSwgIHBvc2l0aW9uLCAgdmVsb2NpdHksICBraW5ldGljLCAgcG90ZW50aWFsLCAgaGFtaWx0b25pYW4nCgohIOS9jee9ruOAgemAn+W6puOBquOBqeOBruWHuuWKmy4KY2FsbCBPdXRwdXQgKDAsIFByaW50SW50LCBOcFRvdCwgbiwgTURTdGVwLCBOU3VtLCBEdCwgUiwgSCwgVCwgUCwgViwgJgogICAgICAgICAgICAgSDAsIFYwLCBTdW1ILCBTdW1IMiwgU3VtVCwgU3VtVDIsIE1heEVyckgpCgoKIS0tLS0tIDLjgrnjg4bjg4Pjg5fnm67ku6XpmY3jga7mmYLplpPnmbrlsZUgLS0tLS0KZG8gbj0gMSwgTURTdGVwCgogICEgbuOCueODhuODg+ODl+ebruOBp+OBruWKm+OBruioiOeulwogIGNhbGwgRm9yY2VQb3RlbnRpYWwgKE5wVG90LCBuLCBNRFN0ZXAsIFIwLCBkUiwgRXBzLCBTaWdtYSwgUCwgRikKCiAgISAobisxKeOCueODhuODg+ODl+ebruOBruW6p+aomeOCkuioiOeulwogIGNhbGwgVmVybGV0IChOcFRvdCwgbiwgTURTdGVwLCBOU3VtLCBEdCwgTWFzcywgUjAsIFAsIFIsIEYsIFYsICYKICAgICAgICAgICAgICAgZFIsIGRSX3ByZXYsIGRSX25leHQsIEgsIFQsIFN1bUgsIFN1bUgyLCBTdW1ULCBTdW1UMikKCiAgISDlh7rlipsKICBjYWxsIE91dHB1dCAoMCwgUHJpbnRJbnQsIE5wVG90LCBuLCBNRFN0ZXAsIE5TdW0sIER0LCBSLCBILCBULCBQLCBWLCAmCiAgICAgICAgICAgICAgIEgwLCBWMCwgU3VtSCwgU3VtSDIsIFN1bVQsIFN1bVQyLCBNYXhFcnJIKQoKZW5kZG8gISBuCgoKIS0tLS0tIOWQhOeoruW5s+Wdh+WApOOCkuWHuuWKmyAtLS0tLQpjYWxsIE91dHB1dCAoMSwgUHJpbnRJbnQsIE5wVG90LCBuLCBNRFN0ZXAsIE5TdW0sIER0LCBSLCBILCBULCBQLCBWLCAmCiAgICAgICAgICAgICBIMCwgVjAsIFN1bUgsIFN1bUgyLCBTdW1ULCBTdW1UMiwgTWF4RXJySCkKCndyaXRlKDYsKikgJyBEb25lLicKd3JpdGUoNiwqKSAKCiEtLS0tLSDkuLvjg5fjg63jgrDjg6njg6Djga7ntYLkuoYgLS0tLS0KRU5EIFBST0dSQU0gY2x1c3RlcgoKCgpTVUJST1VUSU5FIEZvcmNlUG90ZW50aWFsKE5wVG90LCBuLCBNRFN0ZXAsIFIwLCBkUiwgRXBzLCBTaWdtYSwgUCwgRikKIS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0hCiEg44Od44OG44Oz44K344Oj44Or44Ko44ON44Or44Ku44O844Go5Yqb44Gu6KiI566XICEKIS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0hCklNUExJQ0lUIE5PTkUKSU5URUdFUiwgSU5URU5UKGluKSAgICA6OiBOcFRvdCwgbiwgTURTdGVwClJFQUwoOCksIElOVEVOVChpbikgICAgOjogUjAoMyxOcFRvdCksIGRSKDMsTnBUb3QpLCBFcHMsIFNpZ21hClJFQUwoOCksIElOVEVOVChpbm91dCkgOjogUCwgRigzLE5wVG90KQohIExvY2FsIHN0dWZmCklOVEVHRVIgaSwgagpSRUFMKDgpIFIxLCBSMiwgUmlqKDMpLCBkcGRyLCBkcmR2KDMpCgpGKDosOik9MC5kMCA7IFA9MC5kMAoKZG8gaT0gMSwgTnBUb3QKICBkbyBqPSAxLCBOcFRvdAoKICAgIGlmIChpIC89IGopIHRoZW4KCiAgICAgICEgZFI6IGRpc3BsYWNlbWVudCBmcm9tIHRpbWUgMCB0byB0aW1lIG4KICAgICAgUmlqKDopID0gKGRSKDosaikgLSBkUig6LGkpKSArIChSMCg6LGopIC0gUjAoOixpKSkKICAgICAgUjIgPSBSaWooMSkqKjIgKyBSaWooMikqKjIgKyBSaWooMykqKjIgCiAgICAgIFIxID0gc3FydChSMikKCiAgICAgICEgcG90ZW50aWFsIGVuZXJneQogICAgICBQID0gUCArIDQuZDAgKiBFcHMgKiAoKFNpZ21hKioyL1IyKSoqNiAtIChTaWdtYSoqMi9SMikqKjMpCgogICAgICAhIGZvcmNlCiAgICAgIGRwZHIgPSA0LmQwICogRXBzICogKC0xMi5kMCooU2lnbWEqKjIvUjIpKio2ICsgNi5kMCooU2lnbWEqKjIvUjIpKiozKSAvIFIxCiAgICAgIGRyZHYoOikgPSAtUmlqKDopIC8gUjEKICAgICAgRig6LGkpID0gRig6LGkpIC0gZHBkcipkcmR2KDopCgogICAgZW5kaWYgISBpIC89IGoKCiAgZW5kZG8gISBqCmVuZGRvICEgaQoKUCA9IDAuNWQwKlAKCnJldHVybgpFTkQgU1VCUk9VVElORSBGb3JjZVBvdGVudGlhbAoKCgpTVUJST1VUSU5FIFZlcmxldChOcFRvdCwgbiwgTURTdGVwLCBOU3VtLCBEdCwgTWFzcywgUjAsIFAsIFIsIEYsIFYsICYKICAgICAgICAgICAgICAgICAgZFIsIGRSX3ByZXYsIGRSX25leHQsIEgsIFQsIFN1bUgsIFN1bUgyLCBTdW1ULCBTdW1UMikKIS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tIQohIFZlcmxldOazleOBq+OCiOOCi+W6p+aomeOBruabtOaWsCAhCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSEKSU1QTElDSVQgTk9ORQpJTlRFR0VSLCBJTlRFTlQoaW4pICAgIDo6IE5wVG90LCBuLCBNRFN0ZXAKSU5URUdFUiwgSU5URU5UKGlub3V0KSA6OiBOU3VtClJFQUwoOCksIElOVEVOVChpbikgICAgOjogUjAoMyxOcFRvdCksIFAsIER0LCBNYXNzClJFQUwoOCksIElOVEVOVChpbm91dCkgOjogUigzLE5wVG90KSwgRigzLE5wVG90KSwgVigzLE5wVG90KSwgZFIoMyxOcFRvdCksICYKICAgICAgICAgICAgICAgICAgICAgICAgICBkUl9wcmV2KDMsTnBUb3QpLCBkUl9uZXh0KDMsTnBUb3QpLCBILCBULCBTdW1ILCAgJgogICAgICAgICAgICAgICAgICAgICAgICAgIFN1bUgyLCBTdW1ULCBTdW1UMgohIExvY2FsIHN0dWZmCklOVEVHRVIgaQoKIS0tLS0tIDAtdGggc3RlcCAtLS0tLQppZiAobiA9PSAwKSB0aGVuCiAgISBjdXJyZW50IHBvc2l0aW9uCiAgUig6LDopID0gUjAoOiw6KSAKCiAgISBkUiA9IGRSX25leHQgPSBSKM6UdCkgLSBSKDApID0gVigwKc6UdCArIGEoMCkqKM6UdCleMi8yICAgCiAgZG8gaT0gMSwgTnBUb3QKICAgIGRSX25leHQoOixpKSA9IFYoOixpKSpEdCArIDAuNWQwKkYoOixpKSpEdCoqMi9NYXNzCiAgICBkUig6LGkpID0gZFJfbmV4dCg6LGkpCiAgZW5kZG8gISBpCgoKIS0tLS0tIGxhdGVyIHN0ZXBzIC0tLS0tCmVsc2VpZiAobiA+PSAxKSB0aGVuCiAgISBjdXJyZW50IHBvc2l0aW9uCiAgUig6LDopID0gUjAoOiw6KSArIGRSKDosOikKCiAgISBkUl9uZXh0ID0gUih0K86UdCkgLSBSKHQpID0gUih0KSAtIFIodC3OlHQpICsgYSh0KSoozpR0KV4yICAgCiAgISBkUl9wcmV2ID0gUih0KSAtIFIodC3OlHQpCiAgISBkUiAgICAgID0gUih0K86UdCkgLSBSKDApCiAgZG8gaT0gMSwgTnBUb3QKICAgIGRSX25leHQoOixpKSA9IGRSX3ByZXYoOixpKSArIEYoOixpKSpEdCoqMi9NYXNzCiAgICBkUig6LGkpID0gZFIoOixpKSArIGRSX25leHQoOixpKQogICAgVig6LGkpID0gMC41ZDAgKiAoZFJfbmV4dCg6LGkpICsgZFJfcHJldig6LGkpKSAvIER0CiAgZW5kZG8KCmVuZGlmCgoKIS0tLS0tIFJlbmFtaW5nIGZvciB1c2UgYXQgdGhlIG5leHQgc3RlcCAtLS0tLQpkUl9wcmV2KDosOik9IGRSX25leHQoOiw6KQoKCiEtLS0tLSDpgYvli5Xjgqjjg43jg6vjgq7jg7zjga7oqIjnrpcgLS0tLS0KVCA9IDAuZDAKZG8gaT0gMSwgTnBUb3QKICBUID0gVCArIDAuNWQwICogTWFzcyAqIChWKDEsaSkqKjIgKyBWKDIsaSkqKjIgKyBWKDMsaSkqKjIpCmVuZGRvCgoKIS0tLS0tIOODj+ODn+ODq+ODiOODi+OCouODs+OBruioiOeulyAtLS0tLQpIID0gVCArIFAKCgohLS0tLS0g6JOE56mNIC0tLS0tCk5TdW0gID0gTlN1bSAgKyAxICAgICAgISDok4TnqY3jga7lm57mlbAKU3VtSCAgPSBTdW1IICArIEggICAgICAhIOODj+ODn+ODq+ODiOODi+OCouODswpTdW1IMiA9IFN1bUgyICsgSCoqMiAgICEg44OP44Of44Or44OI44OL44Ki44Oz44Gu77yS5LmXClN1bVQgID0gU3VtVCAgKyBUICAgICAgISDpgYvli5Xjgqjjg43jg6vjgq7jg7wKU3VtVDIgPSBTdW1UMiArIFQqKjIgICAhIOmBi+WLleOCqOODjeODq+OCruODvOOBru+8kuS5lwoKcmV0dXJuCkVORCBTVUJST1VUSU5FIFZlcmxldAoKCgpTVUJST1VUSU5FIE91dHB1dChtb2RlLCBQcmludEludCwgTnBUb3QsIG4sIE1EU3RlcCwgTlN1bSwgRHQsIFIsIEgsIFQsIFAsIFYsIEgwLCBWMCwgJgogICAgICAgICAgICAgICAgICBTdW1ILCBTdW1IMiwgU3VtVCwgU3VtVDIsIE1heEVyckgpCiEtLS0tLS0tLS0tLS0hCiEg57WQ5p6c44Gu5Ye65YqbICEKIS0tLS0tLS0tLS0tLSEKSU1QTElDSVQgTk9ORQpJTlRFR0VSLCBJTlRFTlQoaW4pICAgIDo6IG1vZGUsIFByaW50SW50LCBOcFRvdCwgbiwgTURTdGVwLCBOU3VtClJFQUwoOCksIElOVEVOVChpbikgICAgOjogRHQsIFIoMyxOcFRvdCksIEgsIFQsIFAsIFYoMyxOcFRvdCksIEgwLCBWMCwgU3VtSCwgU3VtSDIsIFN1bVQsIFN1bVQyClJFQUwoOCksIElOVEVOVChpbm91dCkgOjogTWF4RXJySAohIExvY2FsIHN0dWZmClJFQUwoOCkgdGltZSwgQXZlSCwgQXZlSDIsIEF2ZVQsIEF2ZVQyLCBSTVNEX0gsIFJNU0RfVAoKaWYgKG1vZGUgPT0gMCkgdGhlbgogICEtLS0tLSBPdXRwdXQgZGF0YSBhdCB0aGUgY3VycmVudCB0aW1lIC0tLS0tCiAgdGltZSA9IER0KnJlYWwobiw4KQoKICBpZiAoIChuPT1NRFN0ZXApIC5vci4gKG1vZChuLFByaW50SW50KT09MCkgKSAmCiAgICB3cml0ZSg2LCAnKCBlMTIuNiwgNChlMTQuNiksIGUyMy4xNSApJykgdGltZSwgUigxLDIpLCBWKDEsMiksIFQsIFAsIEgKCiAgTWF4RXJySD0gbWF4KE1heEVyckgsIGFicyhILUgwKSkgISBNYXhpbXVtIGVycm9yIGluIEhhbWlsdG9uaWFuCgoKZWxzZWlmIChtb2RlID09IDEpIHRoZW4KICAhLS0tLS0gQ29tcHV0ZSByb290IG1lYW4gc3F1YXJlIGRldmlhdGlvbiAoUk1TRCkgLS0tLS0KICAhIGNvbXB1dGUgYXZlcmFnZXMKICBBdmVIICA9IFN1bUggL3JlYWwoTlN1bSw4KSAgISDjg4/jg5/jg6vjg4jjg4vjgqLjg7MKICBBdmVIMiA9IFN1bUgyL3JlYWwoTlN1bSw4KSAgISDjg4/jg5/jg6vjg4jjg4vjgqLjg7Pjga7vvJLkuZcKICBBdmVUICA9IFN1bVQgL3JlYWwoTlN1bSw4KSAgISDpgYvli5Xjgqjjg43jg6vjgq7jg7wKICBBdmVUMiA9IFN1bVQyL3JlYWwoTlN1bSw4KSAgISDpgYvli5Xjgqjjg43jg6vjgq7jg7zjga7vvJLkuZcKCiAgISBjb21wdXRlIFJNU0QKICBSTVNEX0ggPSBzcXJ0KGFicyhBdmVIMi1BdmVIKioyKSkKICBSTVNEX1QgPSBzcXJ0KGFicyhBdmVUMi1BdmVUKioyKSkKCiAgISBwcmludAogIHdyaXRlKDYsICopCiAgd3JpdGUoNiwgKikgJy0tLS0tLS0tLScKICB3cml0ZSg2LCAqKSAnIFN1bW1hcnkgJwogIHdyaXRlKDYsICopICctLS0tLS0tLS0nCiAgd3JpdGUoNiwgJyggYSwgZTIzLjE1ICknKSAgICAnRHQgICAgICAgICAgID0nLCBEdAogIHdyaXRlKDYsICcoIGEsIGUyMy4xNSApJykgICAgJ1YwICAgICAgICAgICA9JywgVjAKICB3cml0ZSg2LCAnKCBhLCBlMjMuMTUgKScpICAgICdSTVNEKEgpICAgICAgPScsIFJNU0RfSAogIHdyaXRlKDYsICcoIGEsIGUyMy4xNSApJykgICAgJ01heC4gZXJyLihIKSA9JywgTWF4RXJySAogIHdyaXRlKDYsICcoIGEsIGUyMy4xNSApJykgICAgJ0ZpbmFsIHBvcy4gICA9JywgUigxLDIpCiAgd3JpdGUoNiwgJyggMihhLCBlMjMuMTUpICknKSAnPEg+PScsIEF2ZUgsICcgKy0gJywgUk1TRF9ICiAgd3JpdGUoNiwgJyggMihhLCBlMjMuMTUpICknKSAnPFQ+PScsIEF2ZVQsICcgKy0gJywgUk1TRF9UCiAgd3JpdGUoNiwgJyggYSwgaTEwICknKSAgICAnTm9ybS4gY29uc3QuKE5TdW0pPSAgJywgTlN1bQoKZW5kaWYKCnJldHVybgpFTkQgU1VCUk9VVElORSBPdXRwdXQK

Success #stdin #stdout 0.01s 5320KB

stdin

Standard input is empty

stdout

 ==============================
 MD simulation by Verlet method
 ==============================
  # of particles    =            2
  L-J parameters:
    --> Epsilon     =    1.0000000000000000     
    --> Sigma       =    1.0000000000000000     
  Mass of particle  =    1.0000000000000000     
  Time step         =    1.0000000000000000E-003
  # of MD steps     =         2000
  Simulation time   =    2.0000000000000000     
  Print interval    =    2.0000000000000000E-002

#time,  position,  velocity,  kinetic,  potential,  hamiltonian
0.000000E+00  0.560000E+00 -0.200000E+01  0.400000E+01 -0.999824E+00  0.300017588707227E+01
0.200000E-01  0.520500E+00 -0.191659E+01  0.367331E+01 -0.673334E+00  0.299997840089960E+01
0.400000E-01  0.485820E+00 -0.145061E+01  0.210426E+01  0.895629E+00  0.299988517208095E+01
0.600000E-01  0.467690E+00 -0.237093E+00  0.562129E-01  0.294450E+01  0.300071373471904E+01
0.800000E-01  0.477707E+00  0.115962E+01  0.134471E+01  0.165536E+01  0.300007563811096E+01
0.100000E+00  0.508887E+00  0.183328E+01  0.336090E+01 -0.361006E+00  0.299989678236226E+01
0.120000E+00  0.547650E+00  0.199376E+01  0.397506E+01 -0.974931E+00  0.300013228170439E+01
0.140000E+00  0.587568E+00  0.198554E+01  0.394237E+01 -0.942136E+00  0.300023103308488E+01
0.160000E+00  0.626844E+00  0.194039E+01  0.376513E+01 -0.764873E+00  0.300025763094788E+01
0.180000E+00  0.665189E+00  0.189515E+01  0.359159E+01 -0.591331E+00  0.300026278099454E+01
0.200000E+00  0.702705E+00  0.185795E+01  0.345199E+01 -0.451725E+00  0.300026245822865E+01
0.220000E+00  0.739563E+00  0.182914E+01  0.334576E+01 -0.345494E+00  0.300026106314820E+01
0.240000E+00  0.775917E+00  0.180725E+01  0.326616E+01 -0.265903E+00  0.300025972190359E+01
0.260000E+00  0.811889E+00  0.179069E+01  0.320658E+01 -0.206318E+00  0.300025866052486E+01
0.280000E+00  0.847571E+00  0.177813E+01  0.316174E+01 -0.161481E+00  0.300025787021185E+01
0.300000E+00  0.883033E+00  0.176854E+01  0.312774E+01 -0.127486E+00  0.300025729374408E+01
0.320000E+00  0.918327E+00  0.176118E+01  0.310175E+01 -0.101492E+00  0.300025687523957E+01
0.340000E+00  0.953492E+00  0.175548E+01  0.308170E+01 -0.814429E-01  0.300025657069384E+01
0.360000E+00  0.988555E+00  0.175103E+01  0.306610E+01 -0.658480E-01  0.300025634781122E+01
0.380000E+00  0.102354E+01  0.174753E+01  0.305387E+01 -0.536181E-01  0.300025618350904E+01
0.400000E+00  0.105846E+01  0.174477E+01  0.304421E+01 -0.439519E-01  0.300025606143101E+01
0.420000E+00  0.109333E+01  0.174256E+01  0.303651E+01 -0.362554E-01  0.300025596999048E+01
0.440000E+00  0.112817E+01  0.174079E+01  0.303034E+01 -0.300841E-01  0.300025590094771E+01
0.460000E+00  0.116297E+01  0.173936E+01  0.302536E+01 -0.251029E-01  0.300025584840780E+01
0.480000E+00  0.119774E+01  0.173819E+01  0.302131E+01 -0.210569E-01  0.300025580812352E+01
0.500000E+00  0.123250E+01  0.173724E+01  0.301801E+01 -0.177511E-01  0.300025577701161E+01
0.520000E+00  0.126723E+01  0.173646E+01  0.301529E+01 -0.150349E-01  0.300025575281649E+01
0.540000E+00  0.130196E+01  0.173581E+01  0.301305E+01 -0.127911E-01  0.300025573387545E+01
0.560000E+00  0.133667E+01  0.173528E+01  0.301118E+01 -0.109282E-01  0.300025571895355E+01
0.580000E+00  0.137137E+01  0.173483E+01  0.300963E+01 -0.937424E-02  0.300025570712686E+01
0.600000E+00  0.140606E+01  0.173445E+01  0.300833E+01 -0.807194E-02  0.300025569769929E+01
0.620000E+00  0.144075E+01  0.173414E+01  0.300723E+01 -0.697584E-02  0.300025569014277E+01
0.640000E+00  0.147543E+01  0.173387E+01  0.300631E+01 -0.604947E-02  0.300025568405414E+01
0.660000E+00  0.151010E+01  0.173364E+01  0.300552E+01 -0.526347E-02  0.300025567912360E+01
0.680000E+00  0.154477E+01  0.173345E+01  0.300485E+01 -0.459404E-02  0.300025567511171E+01
0.700000E+00  0.157944E+01  0.173329E+01  0.300428E+01 -0.402185E-02  0.300025567183231E+01
0.720000E+00  0.161410E+01  0.173314E+01  0.300379E+01 -0.353109E-02  0.300025566913987E+01
0.740000E+00  0.164876E+01  0.173302E+01  0.300336E+01 -0.310878E-02  0.300025566692003E+01
0.760000E+00  0.168342E+01  0.173292E+01  0.300300E+01 -0.274423E-02  0.300025566508243E+01
0.780000E+00  0.171808E+01  0.173283E+01  0.300268E+01 -0.242859E-02  0.300025566355535E+01
0.800000E+00  0.175274E+01  0.173275E+01  0.300241E+01 -0.215449E-02  0.300025566228160E+01
0.820000E+00  0.178739E+01  0.173268E+01  0.300217E+01 -0.191582E-02  0.300025566121534E+01
0.840000E+00  0.182204E+01  0.173262E+01  0.300196E+01 -0.170742E-02  0.300025566031972E+01
0.860000E+00  0.185670E+01  0.173256E+01  0.300178E+01 -0.152500E-02  0.300025565956492E+01
0.880000E+00  0.189135E+01  0.173252E+01  0.300162E+01 -0.136491E-02  0.300025565892678E+01
0.900000E+00  0.192600E+01  0.173248E+01  0.300148E+01 -0.122409E-02  0.300025565838560E+01
0.920000E+00  0.196065E+01  0.173244E+01  0.300136E+01 -0.109993E-02  0.300025565792530E+01
0.940000E+00  0.199529E+01  0.173241E+01  0.300125E+01 -0.990216E-03  0.300025565753267E+01
0.960000E+00  0.202994E+01  0.173238E+01  0.300115E+01 -0.893059E-03  0.300025565719684E+01
0.980000E+00  0.206459E+01  0.173236E+01  0.300106E+01 -0.806844E-03  0.300025565690882E+01
0.100000E+01  0.209924E+01  0.173234E+01  0.300099E+01 -0.730183E-03  0.300025565666117E+01
0.102000E+01  0.213388E+01  0.173232E+01  0.300092E+01 -0.661887E-03  0.300025565644770E+01
0.104000E+01  0.216853E+01  0.173230E+01  0.300086E+01 -0.600928E-03  0.300025565626324E+01
0.106000E+01  0.220318E+01  0.173228E+01  0.300080E+01 -0.546419E-03  0.300025565610350E+01
0.108000E+01  0.223782E+01  0.173227E+01  0.300075E+01 -0.497593E-03  0.300025565596483E+01
0.110000E+01  0.227247E+01  0.173226E+01  0.300071E+01 -0.453781E-03  0.300025565584420E+01
0.112000E+01  0.230711E+01  0.173224E+01  0.300067E+01 -0.414404E-03  0.300025565573903E+01
0.114000E+01  0.234176E+01  0.173223E+01  0.300063E+01 -0.378956E-03  0.300025565564716E+01
0.116000E+01  0.237640E+01  0.173222E+01  0.300060E+01 -0.346996E-03  0.300025565556674E+01
0.118000E+01  0.241104E+01  0.173222E+01  0.300057E+01 -0.318137E-03  0.300025565549621E+01
0.120000E+01  0.244569E+01  0.173221E+01  0.300055E+01 -0.292039E-03  0.300025565543424E+01
0.122000E+01  0.248033E+01  0.173220E+01  0.300052E+01 -0.268405E-03  0.300025565537968E+01
0.124000E+01  0.251498E+01  0.173220E+01  0.300050E+01 -0.246973E-03  0.300025565533157E+01
0.126000E+01  0.254962E+01  0.173219E+01  0.300048E+01 -0.227510E-03  0.300025565528907E+01
0.128000E+01  0.258426E+01  0.173219E+01  0.300047E+01 -0.209814E-03  0.300025565525146E+01
0.130000E+01  0.261891E+01  0.173218E+01  0.300045E+01 -0.193703E-03  0.300025565521813E+01
0.132000E+01  0.265355E+01  0.173218E+01  0.300043E+01 -0.179017E-03  0.300025565518853E+01
0.134000E+01  0.268820E+01  0.173217E+01  0.300042E+01 -0.165614E-03  0.300025565516222E+01
0.136000E+01  0.272284E+01  0.173217E+01  0.300041E+01 -0.153367E-03  0.300025565513879E+01
0.138000E+01  0.275748E+01  0.173217E+01  0.300040E+01 -0.142163E-03  0.300025565511790E+01
0.140000E+01  0.279213E+01  0.173216E+01  0.300039E+01 -0.131903E-03  0.300025565509924E+01
0.142000E+01  0.282677E+01  0.173216E+01  0.300038E+01 -0.122497E-03  0.300025565508255E+01
0.144000E+01  0.286141E+01  0.173216E+01  0.300037E+01 -0.113864E-03  0.300025565506760E+01
0.146000E+01  0.289606E+01  0.173216E+01  0.300036E+01 -0.105932E-03  0.300025565505420E+01
0.148000E+01  0.293070E+01  0.173215E+01  0.300035E+01 -0.986376E-04  0.300025565504217E+01
0.150000E+01  0.296534E+01  0.173215E+01  0.300035E+01 -0.919225E-04  0.300025565503135E+01
0.152000E+01  0.299998E+01  0.173215E+01  0.300034E+01 -0.857347E-04  0.300025565502161E+01
0.154000E+01  0.303463E+01  0.173215E+01  0.300034E+01 -0.800275E-04  0.300025565501283E+01
0.156000E+01  0.306927E+01  0.173215E+01  0.300033E+01 -0.747586E-04  0.300025565500491E+01
0.158000E+01  0.310391E+01  0.173214E+01  0.300033E+01 -0.698900E-04  0.300025565499775E+01
0.160000E+01  0.313856E+01  0.173214E+01  0.300032E+01 -0.653873E-04  0.300025565499128E+01
0.162000E+01  0.317320E+01  0.173214E+01  0.300032E+01 -0.612195E-04  0.300025565498542E+01
0.164000E+01  0.320784E+01  0.173214E+01  0.300031E+01 -0.573583E-04  0.300025565498011E+01
0.166000E+01  0.324248E+01  0.173214E+01  0.300031E+01 -0.537783E-04  0.300025565497529E+01
0.168000E+01  0.327713E+01  0.173214E+01  0.300031E+01 -0.504562E-04  0.300025565497091E+01
0.170000E+01  0.331177E+01  0.173214E+01  0.300030E+01 -0.473711E-04  0.300025565496693E+01
0.172000E+01  0.334641E+01  0.173214E+01  0.300030E+01 -0.445039E-04  0.300025565496331E+01
0.174000E+01  0.338106E+01  0.173214E+01  0.300030E+01 -0.418371E-04  0.300025565496001E+01
0.176000E+01  0.341570E+01  0.173214E+01  0.300030E+01 -0.393549E-04  0.300025565495700E+01
0.178000E+01  0.345034E+01  0.173214E+01  0.300029E+01 -0.370428E-04  0.300025565495425E+01
0.180000E+01  0.348498E+01  0.173213E+01  0.300029E+01 -0.348876E-04  0.300025565495174E+01
0.182000E+01  0.351963E+01  0.173213E+01  0.300029E+01 -0.328774E-04  0.300025565494945E+01
0.184000E+01  0.355427E+01  0.173213E+01  0.300029E+01 -0.310009E-04  0.300025565494735E+01
0.186000E+01  0.358891E+01  0.173213E+01  0.300028E+01 -0.292483E-04  0.300025565494542E+01
0.188000E+01  0.362355E+01  0.173213E+01  0.300028E+01 -0.276101E-04  0.300025565494366E+01
0.190000E+01  0.365820E+01  0.173213E+01  0.300028E+01 -0.260780E-04  0.300025565494204E+01
0.192000E+01  0.369284E+01  0.173213E+01  0.300028E+01 -0.246442E-04  0.300025565494055E+01
0.194000E+01  0.372748E+01  0.173213E+01  0.300028E+01 -0.233015E-04  0.300025565493919E+01
0.196000E+01  0.376212E+01  0.173213E+01  0.300028E+01 -0.220434E-04  0.300025565493793E+01
0.198000E+01  0.379677E+01  0.173213E+01  0.300028E+01 -0.208638E-04  0.300025565493677E+01
0.200000E+01  0.383141E+01  0.173213E+01  0.300028E+01 -0.197572E-04  0.300025565493571E+01

 ---------
  Summary 
 ---------
Dt           =  0.100000000000000E-02
V0           =  0.200000000000000E+01
RMSD(H)      =  0.743608734009656E-04
Max. err.(H) =  0.574547607678610E-03
Final pos.   =  0.383141020971722E+01
<H>=  0.300024672441823E+01 +-   0.743608734009656E-04
<T>=  0.301513607032698E+01 +-   0.406747693318089E+00
Norm. const.(NSum)=        2001
  Done.

https://ideone.com/vBLBiL

language:

Fortran (gfortran 8.3)

created:

visibility:

public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language