[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode
MODULE COMMON_DATA
IMPLICIT NONE
SAVE
REAL::X(32)
END MODULE
SUBROUTINE 1…………
…………
USE COMMON_DATA
DO i=1,4,1
IF(i==NOEL)THEN
DO j=1,8,1
IF(j==NPT)THEN
X((i-1)*8+j)=STATEV(2)
END IF
END DO
END IF
END DO
END SUBROUTINE1
SUBROUTINE 2…………
…………
USE COMMON_DATA
DO i=5,8,1
IF(i==NOEL)THEN
DO j=1,8,1
IF(j==NPT)THEN
L=X((i-5)*8+j)
END IF
END DO
END IF
END DO
END SUBROUTINE2
[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode
call subroutine1 ! 设定 X
call subroutine2 !读取 X
call subroutine1 !设定新的X
call subroutine2 !读取新的X