if (ncycle.eq.0) then |
do 60 i=lft,llt |
dt2=amin1(dtx(i),dt2) |
if (dt2.eq.dtx(i)) then |
ielmtc=128*(ndum-1)+i |
ielmtc=nhex(ielmtc) |
ityptc=1 |
endif |
ielmtd=128*(ndum-1)+i |
ielmtd=nhex(ielmtd) |
write (13,90) ielmtd,dtx(i) |
write (13,100)ielmtc |
60 continue |
endif |
do 70 i=lft,llt |
70 dt2=amin1(dtx(i),dt2) |
if (mess.ne.'sw2.') return |
do 80 i=lft,llt |
if (dt2.eq.dtx(i)) then |
ielmtc=128*(ndum-1)+i |
ielmtc=nhex(ielmtc) |
ityptc=1 |
endif |
80 continue |