Laserfiche WebLink
<br />0;,115 '\ <br /> <br />. Equivalence statements relating two different data types; a real (ACU) and a <br />character (KQNNM) were revised in INITIAL.FOR and READER.FOR by <br />creating a new variable as follows: <br /> <br />OLD <br />CHARACTER KQNNM <br />EQUIVALENCE (ACU,KQINNM) <br /> <br />NEW <br />character kqnnm,acuch <br />equivalence (acuch,kqinnm) <br /> <br />PORTING COMMENTS: DIFFERENCES BETWEEN THE LOWER REGION <br />AND DENVER CRSM MODEL'S <br /> <br />Following are changes which resulted when porting the Lower Region Model which did <br />not occur when porting the Denver Region Model. In all cases, the cyber and PC <br />versions have been corrected in coordination with the Lower Region. <br /> <br />. In subroutine INITIAL.FOR new variables were included in the Lower Region model <br />that did not exist in the Denver version. During this process the variable which <br />controls the operation of the 602A storage appears to have been destroyed as follows: <br /> <br />LOWER REGION MODEL <br />READ (IR,9930) ... PROB02... <br /> <br />RECOMMENDED FIX <br />read(ir,9930) ... pro602... <br /> <br />. In subroutine APPOR.FOR the variable SURPSN is defined but not used. It appears <br />to be a typo and should be ISURPSN as follows: <br /> <br />LOWER REGION MODEL <br />IF(...) SURPSN =1 <br /> <br />RECOMMENDED FIX <br />if(...) isurpsn = 1 <br /> <br />. In subroutine APPOR.FOR the variable SNEP is defined but not used. It appears to <br />be a typo and should be SNEVP as follows: <br /> <br />LOWER REGION MODEL <br />IF(...) SNEVSH=SNEP <br /> <br />RECOMMENDED FIX <br />if(...) snevsh=snevp <br /> <br />10 <br />