S&E(R) CodeScope(R)/Fortran 1.00 beta : STATIC ANALYSIS OF FORTRAN PROGRAM : DATE 2001-11-07 PAGE 00001 EEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EEEEEEE EEEEEEEEE EE EE EE EEEEEEEEEE EEEEEEE EE EE EE EE EE EEEEEEE EEEEEEEEE EE EE EE EEEEEEEEE EEEEEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EEEEEEEEEE EEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EE EEEEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEE EE EEEEEEEEEE EEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EEEEEEEE EE EE EEEEEEEE EE EE EE EE EE EE EEEEEEEEEE EE EEEEEEEE EE EEEEEEEEE EEEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEEE EEEEEE EE EE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEE EEE EEE EE EE EE EE EE EE EE EE EE EE EE EE EEEE EEEE EE EE EE EE EE EE EE EE EE EE EE EE EEEE EE EEEEEEEEEE EEEEEEEEEE EE EE EE EEEEE EEEEEEEEEE EE EE EE EE EE EEEEEEEEE EEEEEEEEE EE EE EE EEEEE EEEEEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EEEEEEEE EEEEEEEE EE EE EE EE EE EE EEEEEEEE EEEE EEEE EEE EEE EEE EEEE EEEEEEEEEE EEEEEEEEEE EEEEEE EEEEEE EEEE EEEE EEEE EEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EEE EE EE EE EE EE EE EE EE EE EE EEE EE EE EE EE EE EEEEEEEE EE EE EEEEEEEE EE EE EE EEE EE EE EE EE EE EEEEEEEE EE EE EEEEEEEE EE EE EE EEE EE EE EE EE EE EE EE EE EE EE EEE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EEEEEE EEEEEE EEEE EEEE EEEE EEEEEE EE EEEEEEEEEE EEEE EEEE EEEE EEEE EEEE EEEE EE S&E(R) CodeScope(R)/Fortran 1.00 beta : STATIC ANALYSIS OF FORTRAN PROGRAM : DATE 2001-11-07 PAGE 00002 EXECUTION PARAMETERS COMMON SPECIFICATION ON DETAIL LIST PARAMETERS(CONSTANT NAMES) OFF PROGRAM SUMMARY OFF LIBRARY ROUTINES USED ON TREE STRUCTURE ON NEST STRUCTURE ON CLASSIFICATION SUMMARY ON MASTER INDEX ON INCLUDED MEMBERS OFF CLASSIFIED STATEMENTS OFF UNDEFINED NAME CHECK ON ORIGINAL SOURCE CODE ASCII DOCUMENT PRINT OFF SOURCE FILE << UNIX/WINDOWS FILE SYSTEM >> INCLUDE DATA SET << UNIX/WINDOWS FILE SYSTEM >> ELM OPTION INTEGER MEMORY SIZE : 871406 WORD REQUIRED. CHARACTER MEMORY SIZE : 11236519 BYTE REQUIRED. S&E(R) CodeScope(R)/Fortran 1.00 beta : NEST STRUCTURE OF CLSINC (SUBROUTINE) OF PROGRAM : DATE 2001-11-07 PAGE 00003 SUBROUTINE CLSINC(MEMBER) 00001 C 00002 IMPLICIT INTEGER(A-Z) 00003 C 00004 CHARACTER*256 MEMBER 00005 C 00006 CHARACTER*60 MESSAG 00007 C======================================================================= 00008 C 00009 C 00010 PARAMETER (MXLVL=16) 00011 CHARACTER*132 CARD 00012 CHARACTER*256 STACKM 00013 COMMON/CRDXXX/ CARD ,STACKM(MXLVL) 00014 COMMON/CRDYYY/ ISNX ,ICRDXX, 00015 * CRDEND,INIT ,OPTION, 00016 * INCUNT,LVL ,STACKI(3,MXLVL) 00017 C 00018 C======================================================================= 00019 C 00020 1------------------------------------IF ( LVL .GT. 0 ) 00021 | * THEN 00022 | CALL FLCLOS(IERR,MESSAG,INCUNT) 00023 | MEMBER = STACKM( LVL) 00024 | CRDEND = STACKI(1,LVL) 00025 | INIT = STACKI(2,LVL) 00026 | OPTION = STACKI(3,LVL) 00027 | C 00028 | INCUNT = INCUNT - 1 00029 | LVL = LVL - 1 00030 1---------------------------------------ELSE 00031 | WRITE(6,20200) 00032 00037 | CALL STATUS 00033 | STOP 100 00034 1------------------------------------END IF 00035 RETURN 00036 20200 FORMAT(1H1/// 00037 00032 * 1H ,'***** SOURCE LEVEL IS NOT INCLUDE LEVEL ***** ' ) 00038 C 00039 END 00040 S&E(R) CodeScope(R)/Fortran 1.00 beta : NEST STRUCTURE OF FLFIND (SUBROUTINE) OF PROGRAM : DATE 2001-11-07 PAGE 00004 SUBROUTINE FLFIND(IERR,MESSAG,IN,MEMBER) 00001 C 00002 IMPLICIT INTEGER(A-Z) 00003 C 00004 C 00005 CHARACTER*60 MESSAG 00006 CHARACTER*256 MEMBER 00007 C 00008 IERR = 0 00009 MESSAG = ' ' 00010 C 00011 OPEN (UNIT=IN,FILE=MEMBER,FORM='FORMATTED', 00012 * STATUS='OLD') 00013 C 00014 RETURN 00015 END 00016 S&E(R) CodeScope(R)/Fortran 1.00 beta : NEST STRUCTURE OF MAIN (MAIN) OF PROGRAM : DATE 2001-11-07 PAGE 00005 C 00001 IMPLICIT INTEGER(A-Z) 00002 CHARACTER*256 MEMBER 00003 PARAMETER ( MXFILL = 512 ) 00004 CHARACTER*(MXFILL) SRCDIR 00005 CHARACTER*(MXFILL) INCDIR 00006 C 00007 CALL OPNINC(IERROR,MEMBER,SRCDIR,INCDIR) 00008 CALL CLSINC(MEMBER) 00009 END 00010 S&E(R) CodeScope(R)/Fortran 1.00 beta : NEST STRUCTURE OF OPNINC (SUBROUTINE) OF PROGRAM : DATE 2001-11-07 PAGE 00006 SUBROUTINE OPNINC(IERROR,MEMBER,SRCDIR,INCDIR) 00001 C 00002 IMPLICIT INTEGER(A-Z) 00003 C 00004 PARAMETER ( MXFILL = 512 ) 00005 PARAMETER ( MXMEML = 256 ) 00006 CHARACTER*(MXFILL) SRCDIR 00007 CHARACTER*(MXFILL) INCDIR 00008 CHARACTER*(MXFILL) INCSTR 00009 C 00010 CHARACTER*(MXMEML) MEMB 00011 CHARACTER*(MXMEML) MEMBER 00012 C 00013 C 00014 CHARACTER*60 MESSAG 00015 C======================================================================= 00016 C 00017 C 00018 PARAMETER (MXLVL=16) 00019 CHARACTER*132 CARD 00020 CHARACTER*256 STACKM 00021 COMMON/CRDXXX/ CARD ,STACKM(MXLVL) 00022 COMMON/CRDYYY/ ISNX ,ICRDXX, 00023 * CRDEND,INIT ,OPTION, 00024 * INCUNT,LVL ,STACKI(3,MXLVL) 00025 C 00026 C======================================================================= 00027 C 00028 CHARACTER*1 WINDIR 00029 CHARACTER*20 ATIME 00030 CHARACTER*20 CTIME 00031 CHARACTER*20 MTIME 00032 CHARACTER*10 TDATE 00033 C 00034 WINDIR = CHAR(92) 00035 C 00036 IERROR = 0 00037 C 00038 1------------------------------------IF ( LVL .LT. MXLVL ) 00039 | * THEN 00040 | LVL = LVL + 1 00041 | STACKM( LVL) = MEMBER 00042 | STACKI(1,LVL) = CRDEND 00043 | STACKI(2,LVL) = INIT 00044 | STACKI(3,LVL) = OPTION 00045 | C 00046 | CRDEND = 0 00047 | INIT = -2 00048 | OPTION = 0 00049 S&E(R) CodeScope(R)/Fortran 1.00 beta : NEST STRUCTURE OF OPNINC (SUBROUTINE) OF PROGRAM : DATE 2001-11-07 PAGE 00007 | C 00050 | 2----------------------------------------IF ( INCDIR .NE. ' ' ) THEN 00051 | | INCSTR = INCDIR 00052 | 2----------------------------------------ELSE 00053 | | INCSTR = SRCDIR 00054 | 2----------------------------------------END IF 00055 | C 00056 | 2----------------------------------------IF ( INCSTR .EQ. ' ' ) THEN 00057 | | MEMB = MEMBER 00058 | +-3--------------------------------------ELSE IF ( INCSTR .EQ. './' 00059 | | * .OR. INCSTR .EQ. '.'//WINDIR ) THEN 00060 | | MEMB = MEMBER 00061 | +-4------------------------------------ELSE IF ( INCSTR .EQ. '.' ) THEN 00062 | | MEMB = MEMBER 00063 | 4------------------------------------ELSE 00064 | | C 00065 | | 5-------------------------------------DO 100 I = MXFILL , 1 , -1 00066 | | | 6--------------------------------------IF ( INCSTR(I:I) .NE. ' ' ) THEN 00067 | | | | 7---------------------------------------IF ( INCSTR(I:I) .EQ. '/' 00068 | | | | | * .OR. INCSTR(I:I) .EQ. WINDIR 00069 | | | | | * .OR. INCSTR(I:I) .EQ. ':' ) THEN 00070 | | | | | MEMB = INCSTR(1:I)//MEMBER 00071 | | | | 7---------------------------------------ELSE 00072 | | | | | MEMB = INCSTR(1:I)//'/'//MEMBER 00073 | | | | 7---------------------------------------END IF 00074 | | | | GO TO 200 00075 | | | | ===>---------------------------------------------> 00079 | | | 6--------------------------------------END IF 00076 | | 5------------------------100----------CONTINUE 00077 | | MEMB = MEMBER 00078 | | <-----------------------------------------------------------<== 00075 | | 200 CONTINUE 00079 | | C 00080 | 4------------------------------------END IF 00081 | C 00082 | C 00083 | C 00084 | CALL ISSTAT(IERROR,MXMEML,MEMB ,IFTYPE,IFSIZE, 00085 | & IREAD ,IWRITE,IEXEC , 00086 | & ATIME ,CTIME ,MTIME ) 00087 | 2----------------------------------------IF ( IERROR .NE. 0 00088 | | & .OR. IFTYPE .NE. 0 )THEN 00089 | | IERRMS = 2 00090 | | CALL ERRORM(IERRMS,MXMEML,MEMB ) 00091 | | IERROR = 1 00092 | | RETURN 00093 | 2----------------------------------------END IF 00094 | C 00095 | C 00096 S&E(R) CodeScope(R)/Fortran 1.00 beta : NEST STRUCTURE OF OPNINC (SUBROUTINE) OF PROGRAM : DATE 2001-11-07 PAGE 00008 | INCUNT = INCUNT + 1 00097 | CALL FLOPEN(IERR,MESSAG,INCUNT,'FT11F001','R') 00098 | 2----------------------------------------IF ( IERR .GT. 0 ) 00099 | | * THEN 00100 | | WRITE(6,20200) LVL 00101 00122 | | CALL STATUS 00102 | | STOP 100 00103 | 2-------------------------------------------END IF 00104 | CALL FLFIND(IERR,MESSAG,INCUNT,MEMB ) 00105 | 2----------------------------------------IF ( IERR .GT. 0 ) 00106 | | * THEN 00107 | | WRITE(6,20300) MEMB 00108 00124 | | CALL STATUS 00109 | | STOP 100 00110 | 2----------------------------------------END IF 00111 1---------------------------------------ELSE 00112 | WRITE(6,20100) MXLVL 00113 00120 | CALL STATUS 00114 | STOP 100 00115 1------------------------------------END IF 00116 RETURN 00117 C 00118 C 00119 20100 FORMAT(1H1/// 00120 00113 * 1H ,'ERROR:INCLUDE NEST LEVEL IS OVER MAXIMUM LEVEL ',I5) 00121 20200 FORMAT(1H1/// 00122 00101 * 1H ,'ERROR:INCLUDE FILE OPEN ERROR. LEVEL ',I5) 00123 20300 FORMAT(1H1/// 00124 00108 * 1H ,'ERROR:INCLUDE MEMBER NOT FOUND. ',A ) 00125 END 00126 S&E(R) CodeScope(R)/Fortran 1.00 beta : COMMON SPECIFICATION OF PROGRAM ( DETAIL LIST ) : DATE 2001-11-07 PAGE 00009 NOTATION D(DEFINED) , R(REFERENCED) , S(SUBSTITUTED) , X(REAL ARGUMENT) I(READ) , O(WRITE) , B(READ/WRITE) ------------------------------------------------------------------------------------------------------------------------------------ 1. CRDXXX : CARD,STACKM(MXLVL) : CLSINC OPNINC . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1. CARD ( ): 2. STACKM ( RS ): CLSINC ( R ) OPNINC ( S ) ------------------------------------------------------------------------------------------------------------------------------------ 2. CRDYYY : ISNX,ICRDXX,CRDEND,INIT,OPTION,INCUNT,LVL,STACKI(3 : CLSINC OPNINC : ,MXLVL) : . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1. CRDEND ( RS ): CLSINC ( S ) OPNINC ( RS ) 2. ICRDXX ( ): 3. INCUNT ( RSX ): CLSINC ( RSX ) OPNINC ( RSX ) 4. INIT ( RS ): CLSINC ( S ) OPNINC ( RS ) 5. ISNX ( ): 6. LVL ( RS O): CLSINC ( RS ) OPNINC ( RS O) 7. OPTION ( RS ): CLSINC ( S ) OPNINC ( RS ) 8. STACKI ( RS ): CLSINC ( R ) OPNINC ( S ) ------------------------------------------------------------------------------------------------------------------------------------ S&E(R) CodeScope(R)/Fortran 1.00 beta : TREE STRUCTURE OF PROGRAM ( ENTRY IS MAIN ) : DATE 2001-11-07 PAGE 00010 NOTATION S(SUBROUTINE) , F(FUNCTION) , P(MAIN), *:LIBRARY , %:SUB ENTRY P.MAIN ---+- S.OPNINC---+-*F.CHAR | +-*S.ISSTAT | +-*S.ERRORM | +-*S.FLOPEN | +-*S.STATUS | +- S.FLFIND | +- S.CLSINC---+-*S.FLCLOS +-*S.STATUS S&E(R) CodeScope(R)/Fortran 1.00 beta : LIBRARY ROUTINES USED BY PROGRAM : DATE 2001-11-07 PAGE 00011 ------------------------------------------------------------------------------------------------------------------------------------ 1. CHAR (FUNCTION ) : OPNINC ------------------------------------------------------------------------------------------------------------------------------------ 2. ERRORM (SUBROUTINE) : OPNINC ------------------------------------------------------------------------------------------------------------------------------------ 3. FLCLOS (SUBROUTINE) : CLSINC ------------------------------------------------------------------------------------------------------------------------------------ 4. FLOPEN (SUBROUTINE) : OPNINC ------------------------------------------------------------------------------------------------------------------------------------ 5. ISSTAT (SUBROUTINE) : OPNINC ------------------------------------------------------------------------------------------------------------------------------------ 6. STATUS (SUBROUTINE) : CLSINC OPNINC ------------------------------------------------------------------------------------------------------------------------------------ S&E(R) CodeScope(R)/Fortran 1.00 beta : STATIC ANALYSIS OF PROGRAM : DATE 2001-11-07 PAGE 00012 S&E(R) CodeScope(R)/Fortran 1.00 beta : STATIC ANALYSIS OF PROGRAM : DATE 2001-11-07 PAGE 00013 EE EE EEEEEE EEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEE EEE EEE EEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEE EEEE EE EE EE EE EE EE EE EE EE EEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EEEEEEEEE EE EEEEEEE EEEEEEEEEE EE EE EEEEEEEEEE EEEEEEEEE EE EEEEEEE EEEEEEEEE EE EE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EE EEEEEEEEEE EE EE EE EE EE EE EEEEEEEE EE EEEEEEEEEE EE EE EEEE EE EE EEEEEEEE EEEEEEEEEE E E EEEEEEEE EEEEEEEEEE EEEE EEE EE EEEEEEEEE EEEEEEEEEE EE EE EEEEEEEEEE EEEEEEEEEE EE EEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EEEEEEE EEEE EE EE EEEEEEEE EE EE EE EE EE EE EEEEEEE EE EE EE EEEEEEEE EE EE EEEE EE EE EE EEEE EE EE EE EE EE EEE EE EE EE EE EE EE EE EE EEEE EE EE EEEEEEEEE EEEEEEEEEE EE EE EEEEEEEEEE EE EEEE EE EE EEEEEEEE EEEEEEEEEE EE EE EEEEEEEE EE EEEEEEEEE EEEEEEEEE EEEEEEEE EEEEEEEE EEEEEEEEE EEEEEE EE EE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEEEE EEEEEEEE EEE EEE EE EE EE EE EE EE EE EE EE EE EE EE EEEE EEEE EE EE EE EE EE EE EE EE EE EE EE EE EEEE EE EEEEEEEEEE EEEEEEEEEE EE EE EE EEEEE EEEEEEEEEE EE EE EE EE EE EEEEEEEEE EEEEEEEEE EE EE EE EEEEE EEEEEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EEEEEEEE EEEEEEEE EE EE EE EE EE EE EEEEEEEE EEEE EEEE EEE EEE EEE EEEE EEEEEEEEEE EEEEEEEEEE EEEEEE EEEEEE EEEE EEEE EEEE EEEEEE EEEEEEEEEE EE EE EE EE EE EE EE EE EE EE EE EE EE EEE EE EE EE EE EE EE EE EE EE EE EEE EE EE EE EE EE EEEEEEEE EE EE EEEEEEEE EE EE EE EEE EE EE EE EE EE EEEEEEEE EE EE EEEEEEEE EE EE EE EEE EE EE EE EE EE EE EE EE EE EE EEE EE EE EE EE EE EE EE EE EE EE EEEEEEEEEE EEEEEE EEEEEE EEEE EEEE EEEE EEEEEE EE EEEEEEEEEE EEEE EEEE EEEE EEEE EEEE EEEE EE S&E(R) CodeScope(R)/Fortran 1.00 beta : MASTER INDEX OF PROGRAM : DATE 2001-11-07 PAGE 00014 FOR MASTER INDEX LIST +--- P PARAMETER | X ARGUMENT | C COMMON | E EXTERNAL +------+ I INTRINSIC | | B STATEMENT FUNCTION | | V SAVE | | S SUBROUTINE | +--- F FUNCTION | | | | +------ R REFERENCED | | NAME | | +---- X REAL ARGUMENT | | | | | | | | NN. VVVVVVVV : XXXXXXXX(...:.....) . . . . . . . . | | | | | | | SEQUENTIAL NUMBER | | | | | | | | | | | | +- I READ VALUE | | | | | | | PROGRAM NAME ---+ | | | | +-+ O WRITE VALUE | | | | | | | | | +- B BOTH(READ/WRITE) | | | | | | | | | | | +----- S SUBSTITUTED | | | | | +------- D DEFINED | | | +--------- L COMMON LABEL NAME | | | +--- ' ' UNKNOWN | | C CONSTANT NAME | | V VARIABLE NAME | | A ARRAY NAME +------+ P MAIN ENTRY POINT | E SUB ENTRY POINT | B BLOCK DATA NAME | S SUBROUTINE REFER | F FUNCTION REFER | X EXTERNAL/INTRINSIC | N NAME LIST LABEL +--- T NAME OF CONSTRUCT S&E(R) CodeScope(R)/Fortran 1.00 beta : MASTER INDEX OF PROGRAM : DATE 2001-11-07 PAGE 00015 NOTATION D(DEFINED) , R(REFERENCED) , S(SUBSTITUTED) , X(REAL ARGUMENT) I(READ) , O(WRITE) , B(READ/WRITE) 1. ATIME : OPNINC ( : X ) 2. CARD : CLSINC ( C : ) OPNINC ( C : ) 3. CHAR : OPNINC (F : R ) 4. CLSINC : CLSINC (PS : ) MAIN (S : R ) 5. CRDEND : CLSINC (VC : S ) OPNINC (VC : RS ) 6. CRDXXX : CLSINC ( L: ) OPNINC ( L: ) 7. CRDYYY : CLSINC ( L: ) OPNINC ( L: ) 8. CTIME : OPNINC ( : X ) 9. ERRORM : OPNINC (S : R ) 10. FLCLOS : CLSINC (S : R ) 11. FLFIND : FLFIND (PS : ) OPNINC (S : R ) 12. FLOPEN : OPNINC (S : R ) 13. I : OPNINC (V : RS ) 14. ICRDXX : CLSINC ( C : ) OPNINC ( C : ) 15. IERR : CLSINC ( : X ) FLFIND (VX : S ) OPNINC (V : R X ) 16. IERRMS : OPNINC (V : SX ) 17. IERROR : MAIN ( : X ) OPNINC (VX : RSX ) 18. IEXEC : OPNINC ( : X ) 19. IFSIZE : OPNINC ( : X ) 20. IFTYPE : OPNINC (V : R X ) 21. IN : FLFIND (VX : R ) 22. INCDIR : MAIN ( : X ) OPNINC (VX : R ) 23. INCSTR : OPNINC (V : RS ) 24. INCUNT : CLSINC (VC : RSX ) OPNINC (VC : RSX ) 25. INIT : CLSINC (VC : S ) OPNINC (VC : RS ) 26. IREAD : OPNINC ( : X ) 27. ISNX : CLSINC ( C : ) OPNINC ( C : ) 28. ISSTAT : OPNINC (S : R ) 29. IWRITE : OPNINC ( : X ) 30. LVL : CLSINC (VC : RS ) OPNINC (VC : RS O) 31. MEMB : OPNINC (V : SXO) 32. MEMBER : CLSINC (VX : S ) FLFIND (VX : R ) MAIN ( : X ) OPNINC (VX : R ) 33. MESSAG : CLSINC ( : X ) FLFIND (VX : S ) OPNINC ( : X ) 34. MTIME : OPNINC ( : X ) 35. MXFILL : MAIN (CP :DR ) OPNINC (CP :DR ) 36. MXLVL : CLSINC (CP :DR ) OPNINC (CP :DR O) 37. MXMEML : OPNINC (CP :DR X ) 38. OPNINC : MAIN (S : R ) OPNINC (PS : ) 39. OPTION : CLSINC (VC : S ) OPNINC (VC : RS ) 40. SRCDIR : MAIN ( : X ) OPNINC (VX : R ) 41. STACKI : CLSINC (AC : R ) OPNINC (AC : S ) 42. STACKM : CLSINC (AC : R ) OPNINC (AC : S ) 43. STATUS : CLSINC (S : R ) OPNINC (S : R ) 44. TDATE : OPNINC ( : ) 45. WINDIR : OPNINC (V : RS ) S&E(R) CodeScope(R)/Fortran 1.00 beta : STATIC ANALYSIS OF PROGRAM : DATE 2001-11-07 PAGE 00016 ******************************************************************************************************************************** * CLASSIFICATION OF FORTRAN STATEMENTS ( TOTAL CARDS 192 ) * ******************************************************************************************************************************** * ERR :UNCLASSIFIED STATEMENT(ERROR) 0 * :IF 9( 0) * * :COMMENT CARDS 45 * IF.1: IF (....) L1 , L2 , L3 0( 0) * * :COMMENT CARDS(ASTERISK) 0 * IF.2: IF (....) ..... 0 * * :CONTINUATION 19 * IF.3: IF (....) THEN 9 * * STMF:STATEMENT FUNCTION 0 * :INTEGER 0 * * ASTM:ASSIGNMENT STATEMENT 29( 0) * :INCLUDE 0 * * :ASSIGN 0( 0) * :IMPLICIT 4 * * :AT 0 * :INTRINSIC 0 * * :BACK SPACE 0( 0) * :INQUIRE 0( 0) * * :BLOCK DATA 0 * :INIT ON 0 * * :CONTINUE 2( 0) * :INIT OFF 0 * * :COMMON 4 * :LOGICAL 0 * * :CALL 11( 0) * :LIST ON 0 * * :CHARACTER 22 * :LIST OFF 0 * * :CLOSE 0( 0) * :NCHARACTER 0 * * :COMPLEX 0 * :NAME LIST 0 * * :DOUBLE PRECISION 0 * :OPEN 1( 0) * * :DO 1 * :PARAMETER 5 * * DO.1: DO ... X = M1,M2,M3 1 * :PAUSE 0( 0) * * DO.2: DO ... UNTIL(...) 0 * :PRINT 0( 0) * * DO.3: DO ... WHILE(...) 0 * :PROCESS 0 * * DO.4: DO ... INFINITE 0 * * * :DIMENSION 0 * :PROGRAM 0 * * :DATA 0 * :PUNCH 0( 0) * * :DECODE 0( 0) * :QUADRUPLE PRECISION 0 * * :DEBUG 0 * :READ 0( 0) * * :DEFINE FILE 0( 0) * RD.1: SEQUENTIAL(UNFORMATED) 0( 0) * * :DISPLAY 0( 0) * RD.2: SEQUENTIAL(FORMATTED) 0( 0) * * :DELETE 0( 0) * RD.3: DIRECT(UNFORMATTED) 0( 0) * * :END IF 9 * RD.4: DIRECT(FORMATTED) 0( 0) * * :ELSE IF 2 * :RETURN 4( 0) * * :ELSE 5 * :REAL 0 * * :END FILE 0( 0) * :REWIND 0( 0) * * :ENCODE 0( 0) * :REWRITE 0( 0) * * :ENTRY 0 * :REPEAT 0 * * :EQUIVALENCE 0 * :STOP 4( 0) * * :EXTERNAL 0 * :SUBROUTINE 3 * * :EJECT 0 * :SAVE 0 * * :END DEBUG 0 * :TRACE ON 0 * * :END 4 * :TRACE OFF 0 * * :FORMAT 4 * :WRITE 4( 0) * * :FUNCTION 0 * WR.1: SEQUENTIAL(UNFORMATED) 0( 0) * * :FIND 0( 0) * WR.2: SEQUENTIAL(FORMATTED) 4( 0) * * :GO TO 1( 0) * WR.3: DIRECT(UNFORMATTED) 0( 0) * * GT.1: UNCONDITIONAL GO TO 1( 0) * WR.4: DIRECT(FORMATTED) 0( 0) * * GT.2: ASSIGNED GO TO 0( 0) * :WAIT 0( 0) * * GT.3: COMPUTED GO TO 0( 0) * * * :SELECT CASE 0 * * * :CASE 0 * * * :CASE DEFAULT 0 * * * :END SELECT 0 * * * :CYCLE 0 * * * :EXIT 0 * * * :END DO 0 * * * :WHERE 0( 0) * * * WH.1: WHERE BLOCK 0( 0) * * * WH.2: WHERE STATEMENT 0( 0) * * * :ELSEWHERE 0 * * * EW.1: CONDITIONAL ELSEWHERE 0 * * * EW.2: UNCONDITIONAL ELSEWHERE 0 * * * :END WHERE 0 * * ********************************************************************************************************************************