C PROGRAM TEST1 EXTERNAL LOC C ENTRY LOC /L=LOC(X): Return abs. core location of (X) C ENTRY LOCX /L=LOCX(X): Return address of EXTERNAL X C ENTRY IPGET /I=IPGET(L): Return as 12 bit unsigned integer C ENTRY INGET /I=INGET(L): Return as 12 bit signed integer C ENTRY IFLAG /I=IFLAG(L): Return as IPGET, then zero C ENTRY IDPGET /I=IDPGET(L): Return as 24 bit signed DP word C ENTRY IGET2 /I=IGET2(L): Return as 24 bit signed integer C ENTRY GET3 /V=GET3(L): Return as 36 bit floating C C ENTRY PUT1 /CALL PUT1(L,I): Store I as 12 bit C ENTRY PUT2 /CALL PUT2(L,I): Store I as 24 bit C ENTRY PUT3 /CALL PUT3(L,I): Store V as 36 bit C CALL FODT WRITE(0,333) 333 FORMAT(' START ') 1 X=3.0 L=LOC(X) WRITE(0,300) L 300 FORMAT(' LOCATION OF X: ',I6) I=IPGET(L) WRITE(0,400) I 400 FORMAT(' I=',I6) C J=INGET(L) WRITE(0,401) J 401 FORMAT(' J=',I6) K=IDPGET(L) WRITE(0,402) K 402 FORMAT(' K=',I8) M=IGET2(L) WRITE(0,404) M 404 FORMAT(' M=',I6) V=GET3(L) WRITE(0,405) V 405 FORMAT(' V=',F12.5) N=LOCX(LOC) WRITE(0,406) N 406 FORMAT(' N=',I6) STOP C READ(0,288,END=23,ERR=55) ABC C288 FORMAT(1F8.0) C X=ABC C WRITE(0,384) X C384 FORMAT(/,' X=',F10.3) C GO TO 1 C23 WRITE(0,373) C373 FORMAT(' CAME TO FORMAT 373 ') C STOP C55 WRITE(0,374) C374 FORMAT(' FORMAT ERROR TRY AGAIN ') C GO TO 1 END