Laserfiche WebLink
<br />0;)1146 <br /> <br />OLD <br />DATA (A=IOO.O) <br /> <br />NEW <br />data all 00.0/ <br /> <br />. Multiple assignments were revised. For example: <br /> <br />OLD <br />Al=A2=0 <br /> <br />NEW <br />A2=0 <br />Al=O <br /> <br />. Arrays were revised when the number of subscripts were less than the number of <br />declared dimensions, since the Cyber compiler assumed the missing dimension is <br />1. For example: <br /> <br />OLD <br />QINFLO(I,J) = 1.0 <br /> <br />NEW <br />qinflo(ij,l) = 1.0 <br /> <br />. Revised the R output specifier as follows: (Note: the R output specifier is <br />similar to the A output specifier but it right justifies the output.) <br /> <br />OLD <br />FORMAT(R5) <br /> <br />NEW <br />format(a5) <br /> <br />. Revised the end of file designation. For example: <br /> <br />OLD <br />READ(5,100) X <br />IF(EOF(5) .EQ. 1)) GOTO 100 <br /> <br />NEW <br />read(5,100,end=llO) x <br /> <br />. Revised the ENCODE and DECODE statements which are used in the original <br />code to format data in memory. ENCODE is similar to a formatted write, while <br />DECODE is similar to a formatted read. Following is an example of transferring <br />data from a character (id) to an integer (is): <br /> <br />OLD <br />CHARACTER ID <br />INTEGER IS <br />DECODE (30,'(Il)',ID) IS <br /> <br />NEW <br />character id <br />integer is <br />read(id,'(il)') is <br /> <br />Following is an example of transferring data from a integer (is) to a character (id) <br /> <br />5 <br />