fortran 中的% DO iKey=1,inpKey%nKeys IF (inpKey%status /= myStatus_Run) EXITIF (keyWord == inpKey%keys(iKey)%name) found = .TRUE.END DO

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/16 14:47:55
fortran中的%DOiKey=1,inpKey%nKeysIF(inpKey%status/=myStatus_Run)EXITIF(keyWord==inpKey%keys(iKey)%name

fortran 中的% DO iKey=1,inpKey%nKeys IF (inpKey%status /= myStatus_Run) EXITIF (keyWord == inpKey%keys(iKey)%name) found = .TRUE.END DO
fortran 中的%
DO iKey=1,inpKey%nKeys
IF (inpKey%status /= myStatus_Run) EXIT
IF (keyWord == inpKey%keys(iKey)%name) found = .TRUE.
END DO

fortran 中的% DO iKey=1,inpKey%nKeys IF (inpKey%status /= myStatus_Run) EXITIF (keyWord == inpKey%keys(iKey)%name) found = .TRUE.END DO
比如 a%b 表示结构体变量 a 的 b 成员
类似于 C 语言的 a.b,结构体(struct)
inpKey%nKeys
inpKey 是一个结构体,你可以搜索一下 Type inpKey 找到它的定义
nKeys 是它的一个结构体成员.就这样