1 MODULE machine 2 3 4 ! Use param 5 ! Use param1 6 7 8 ! record length used in open statement for unformatted, 9 ! direct access file, with 512 bytes per record 10 INTEGER OPEN_N1 11 ! 12 ! number of DOUBLE PRECISION words in 512 bytes 13 INTEGER NWORDS_DP 14 ! 15 ! number of REAL words in 512 bytes 16 INTEGER NWORDS_R 17 ! 18 ! number of INTEGER words in 512 bytes 19 INTEGER NWORDS_I 20 ! 21 LOGICAL :: JUST_FLUSH = .TRUE. 22 23 24 END MODULE machine 25