       PARAMETER (IM=735,JM=1441,IMJM=IM*JM-JM/2)
       PARAMETER (DLMD=.05769230770000000000,
     &  DPHD=.05384615390000000000)
       PARAMETER (TLM0D=-55.0,TPH0D=-19.0)
