有人了解FORTRAN77吗?FORMAT(/3X,'P's material definition file:',A20)CONTINUEREAD(5,'(A6,1X,A120)') KWORD,BUFFERIF(KWORD.EQ.KWCOMM) GO TO 33尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析

来源:学生作业帮助网 编辑:作业帮 时间:2024/12/01 17:27:35
有人了解FORTRAN77吗?FORMAT(/3X,'P's material definition file:',A20)CONTINUEREAD(5,'(A6,1X,A120)') KWORD,BUFFERIF(KWORD.EQ.KWCOMM) GO TO 33尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析
xRnA~B2)VM -UBb IE-?6Z+hEP[jew3;{+8+^ؠ\9ߙ2AZ+M#ZR,P}u1WpO@Tb =Lҩ4ZM%o X~;'E ѥP,${n`#3+XERlY C)CHċJ(.!:ǰե eYLc5Q?q.&[=ԑd={m(v9 VAVhm5`w;# bp._&Zm#jyh8=䜉#W:BS`L9t19Q(U{.=,c챑o?2~֍luHLTNDϒ^C猳E/=4J0?R5v"4A636؅KScr xPTo7Zokg\719'ķIbY

有人了解FORTRAN77吗?FORMAT(/3X,'P's material definition file:',A20)CONTINUEREAD(5,'(A6,1X,A120)') KWORD,BUFFERIF(KWORD.EQ.KWCOMM) GO TO 33尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析
有人了解FORTRAN77吗?
FORMAT(/3X,'P's material definition file:',A20)
CONTINUE
READ(5,'(A6,1X,A120)') KWORD,BUFFER
IF(KWORD.EQ.KWCOMM) GO TO 33
尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析

有人了解FORTRAN77吗?FORMAT(/3X,'P's material definition file:',A20)CONTINUEREAD(5,'(A6,1X,A120)') KWORD,BUFFERIF(KWORD.EQ.KWCOMM) GO TO 33尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析
解释如下:
FORMAT(/3X,'P's material definition file: ',A20) ! 格式语句,但是前面应该有语句标号
CONTINUE ! 继续语句,有人称之为空语句,本身也不干什么,就是(在逻辑上)往下继续执行
READ(5,'(A6,1X,A120)') KWORD,BUFFER ! 输入语句
IF(KWORD.EQ.KWCOMM) GO TO 33 ! 判断语句,假如满足条件,就转到语句标号为33的那条语句继续执行