Laserfiche WebLink
<br />oa1l5~ <br /> <br />. Hollirith constants within executable statements were revised to include a quote <br />as follows: <br /> <br />OLD <br />IF(A.EQ.3RYES) THEN <br />GOTO 100 <br />ENDIF <br /> <br />NEW <br />if(a,eq.'YES') then <br />goto 100 <br />endif <br /> <br />. Character types were identified by reviewing I/O formats, if comparisons, and <br />the DWB edits, To simplifY these edits and insure common blocks and data types <br />were consistent from one subroutine to the next, all common blocks were <br />removed from the individual subroutines and stored as individual files named <br />*.com. Also, character data types were removed from their original common <br />block and assigned to a new common block named CHAR, Common blocks are <br />inserted into a subroutine during the compilation step by using the INCLUDE <br />statement as follows, <br /> <br />OLD <br />COMMON/ONE/ X(100) <br /> <br />NEW <br /> <br />include 'one,com' <br /> <br />. Character comparisons were revised in some instances to allow a variable to be <br />a consistent length throughout the program as follows: <br /> <br />OLD <br />IF (A,EQ.2RNO) GOTO 1 <br /> <br />NEW <br />if(a,eq.'NO ') goto 1 <br /> <br />. Internal mass storage routines were replaced with standard FORTRAN read and <br />write calls, For example: <br /> <br />OLD <br />CALL FETCH (A) <br />CALL CLOSMS (A) <br />CALL WRITMS (A) <br />CALL RETURN (A) <br />CALL A TTCHIT (A) <br /> <br />NEW <br />read (a) <br />close (a) <br />write (a) <br />not required <br />not required <br /> <br />3 <br />