有人了解FORTRAN77吗?FORMAT(/3X,'P's material definition file:',A20)CONTINUEREAD(5,'(A6,1X,A120)') KWORD,BUFFERIF(KWORD.EQ.KWCOMM) GO TO 33尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 01:39:17
![有人了解FORTRAN77吗?FORMAT(/3X,'P's material definition file:',A20)CONTINUEREAD(5,'(A6,1X,A120)') KWORD,BUFFERIF(KWORD.EQ.KWCOMM) GO TO 33尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析](/uploads/image/z/14742490-58-0.jpg?t=%E6%9C%89%E4%BA%BA%E4%BA%86%E8%A7%A3FORTRAN77%E5%90%97%3FFORMAT%28%2F3X%2C%27P%27s+material+definition+file%3A%27%2CA20%29CONTINUEREAD%285%2C%27%28A6%2C1X%2CA120%29%27%29+KWORD%2CBUFFERIF%28KWORD.EQ.KWCOMM%29+GO+TO+33%E5%B0%A4%E5%85%B6%E6%98%AF%E6%9C%80%E5%90%8E%E4%B8%80%E5%8F%A5%E8%AF%9D%2C%E8%BF%99%E4%B8%AA%E6%98%AF%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F%E9%87%8C%E7%9A%84%E4%B8%80%E5%B0%8F%E6%AE%B5%2C%E5%8F%AF%E8%83%BD%E7%94%A8%E5%88%B0%E4%B8%80%E4%BA%9B%E5%8F%98%E9%87%8F%E5%BD%B1%E5%93%8D%E6%82%A8%E5%88%86%E6%9E%90)
有人了解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的那条语句继续执行