COMMON/GEOMAT/MATWLD,XWORLD,YZWORL,FieldW,
     +              MATABS,XABSOR,YZABSO,FieldA,
     +              XPOSAB,X1ABSO,X2ABSO, 
     +              XVERT ,YVERT ,ZVERT

      COMMON/TRAMED/deem,stma,stmi