C C VTGDSN.CMN VTSO version of the DTM SORCM.CMN header C DIMENSION HEADGD(78) INTEGER*4 NP,NZ,NZZ,ISTATB COMPLEX P,Z COMMON/GDSNCM/ 1 A0, ! counts/micrometer factor 1 NP, ! number of complex poles in response 1 P(26), ! complex poles of response function 1 NZ, ! number of complex zeroes in response 1 Z(9), ! complex zeroes of response function (first 9) 1 NZZ, ! number of complex zeroes which are zero 1 ISTATB, ! eleven status bits for record 1 XLAT, ! latitude of station 1 XLON, ! longitude of station 1 ELEV ! elevation of station in meters EQUIVALENCE (A0,HEADGD(1)) C