必须指定pgf90 fortran记录长度

时间:2015-10-05 16:39:17

标签: gcc fortran pgi

抱歉我的英文

我正在研究我的物理硕士论文的自定义代码, 使用fortran90编译的代码,10年内没有人使用此代码...

在代码文件中安装所需程序(如gcc,gmp,mpc,mpfr,pgi,pvm3,tcl,zlib ...)后,我发出了“make”命令,并在“make”之后;出现“runn”文件......

首先; 在make命令之后,如果出现“runn”文件,这是否是安装程序(gcc,pgi ...)正常工作的证据?

第二个问题: 在我命令“./runn&> runnlog”之后 runnlog文件中存在错误:

PGFIO-F-203/OPEN/unit=100/record length must be specified.
 File name = dirname.inp
 In source file tbmd.f, at line number 77

这是我的tbmd.f;第77行及以下:

 open(unit=100,file='dirname.inp',status='unknown',recl=specifier,
     +    form='formatted')  
        read(100,2030) dirdir,label
2030    format(9x,a13,1x,a80)
    close (100)
    finit='initiate.inp'
        open(unit=10,file='initiate.inp',status='unknown',
     +    form='formatted')
    read (10,*) iistep,n,utot,ebstot,kintot,
     +                energy,press,tempi,pure,pure2,ele_mu,trace,
     +                i2,i3

    if(iistep.eq.0) i=system('mkdir '//dirdir)
    i=system('cp *.inp  '//dirdir)

并且还有一个dirname.inp文件:

dirdir  =13x00300epsa0 Input Directory name  
=====================^=====================

我的主管说,当我能正确完成所有操作后,在make命令之后会出现一个“runn”文件,并且“runn”命令会创建一个在dirname.inp中指定的文件夹(在本例中为文件夹名称)是:13x00300epsa0)并在此创建的文件夹中显示一些结果输出文件。

我的主管不了解linux和其他编程语言。我不知道如何修复此错误(必须指定记录长度)

0 个答案:

没有答案