C                                           *--> FROM SCOMMON.CALLSRTEMP
      CALL SRTEMP (IVTEMP,STAID,NBRSTA,DESCRP,STATE,
     *   ITYOBS,IMTN,TEMPCF,ITFMM,TEMPFE,ITNTWK,IPMMMT,
     *   IPDMMT,WTMMT,IPDINS,WTINS,IPDFMM,WTFMM,ITTAVR,UNUSED,
     *   LARRAY,ARRAY,IPTR,IPRERR,IPTRNX,IREAD,IERR)
C