implicit integer (a-z) parameter max_nodes = 6 parameter sec_size = 100 ! section size in pages parameter byte_size = sec_size * 512 ! section size in bytes parameter n_checks = 100 ! number of checks to make integer time(n_checks+2) integer local_time_start(2), remote_time_start(2) integer local_time_end(2), remote_time_end(2) byte buffer(byte_size) common /SyncChk/ buffer equivalence (local_time_start, buffer(1)) equivalence (remote_time_start, buffer(9)) equivalence (local_time_end, buffer(17)) equivalence (remote_time_end, buffer(25)) equivalence (time, buffer(33)) include '($SECDEF)' include '($SSDEF)'