一个Fortran 读文件的模板

留一个~即使不一定会用。。。

原文地址：一个Fortran 读文件的模板 作者：欢乐小汪

不知道这种文件存哪里比较好

每次都要找一段时间

干脆存网上好了

program GaugeSelect

implicit none

CHARACTER(len=80):: Filename

CHARACTER(len=80):: arg1 ,arg2

CHARACTER(len=80):: buff

LOGICAL:: flag=.FALSE.

!================================================================!

call getarg(1,arg1)

call getarg(2,arg2)

if ( len_trim(arg1)==0 )then

    print *,"Please specify the argument of running file!!"

    print *," Usage: ./GaugeSelect filename "

    stop

else

    Filename=trim(arg1)

    INQUIRE(file=trim(Filename),exist=flag)

    if(flag)then

      open(5,file=trim(Filename))

      do while(.true.)

        read(5,*,end=100)buff

      enddo

      100 close(5)

      print *,'File: ',trim(Filename), " Processed" 

    else 

      print *,"Oops........"

      print *,'CAN NOT open file: ',trim(Filename) 

      print *,"   "

    endif

endif

end program GaugeSelect