55 open(unitpath,file=
'pathnames',status=
'old',err=999)
58 read(unitpath,
'(a)',err=998) path(i)
59 length(i)=index(path(i),
' ')-1
66 read(unitpath,
'(a)') path(numpath+2*(i-1)+1)
67 read(unitpath,
'(a)') path(numpath+2*(i-1)+2)
68 if (path(numpath+2*(i-1)+1)(1:5).eq.
'=====') goto 30
69 length(numpath+2*(i-1)+1)=index(path(numpath+2*(i-1)+1),
' ')-1
70 length(numpath+2*(i-1)+2)=index(path(numpath+2*(i-1)+2),
' ')-1
82 998
write(*,*)
' #### TRAJECTORY MODEL ERROR! ERROR WHILE #### '
83 write(*,*)
' #### READING FILE PATHNAMES. #### '
86 999
write(*,*)
' #### TRAJECTORY MODEL ERROR! FILE "pathnames"#### '
87 write(*,*)
' #### CANNOT BE OPENED IN THE CURRENT WORKING #### '
88 write(*,*)
' #### DIRECTORY. #### '