SUBROUTINE getname(argv,nlen)
!
! This subroutine reads the base name of data file.
!
IMPLICIT NONE
INTEGER::narg
INTEGER,INTENT(OUT)::nlen
INTEGER::lnblnk,iargc
CHARACTER(*),INTENT(OUT)::argv
LOGICAL found
narg=IARGC()
IF(narg<1)THEN
WRITE(*,*)'Please enter the base name of data file: '
READ(*,*)argv
ELSE
CALL getarg(1,argv)
ENDIF
nlen=LNBLNK(argv)
INQUIRE(FILE=argv(1:nlen)//'.dat',EXIST=found)
IF(.NOT.found)THEN
WRITE(*,*)'Data file not found: ',argv(1:nlen)//'.dat'
WRITE(*,*)'Please create or check spelling.'
STOP
ENDIF
RETURN
END SUBROUTINE getname |
回复此楼
+5/715
