C DATUM DATA AND VARY CODES FOR INDIVIDUAL ELEMENT C C DATUM(100) DATA OF THIS ELEMENT C REAL DATUM(100) C COMMON /DATUM/ DATUM