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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 15:22:38
有人了解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)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的那条语句继续执行