C     path:      /home/rc1/aer_lblrtm/src/SCCS/s.lbldum.f
C     revision:  5.1
C     created:   05/12/98  07:52:09
C     presently: 05/12/98  13:10:54

      SUBROUTINE NONLTE (MPTS) 1
      PRINT * , ' NONLTE NOT IMPLEMENTED'
      STOP
      END

      SUBROUTINE LASER(VLAS,MFILE,JAERSL) 2
      PRINT * , ' LASER NOT IMPLEMENTED'
      STOP
      END

      FUNCTION RANDM(IRAND) 3
      PRINT * , ' RANDM NOT IMPLEMENTED PROPERLY'
      RANDM=0.5
      IRAND=IABS(IRAND)
      RETURN
      END

      SUBROUTINE PLTID3(PROGID,XSIZ,YSIZ,SCAL) 1
      DIMENSION PROGID(3)
      PRINT * , ' PLTID3 NOT IMPLEMENTED'
      RETURN
      END

      SUBROUTINE ENDPLT 2
      PRINT * , ' ENDPLT NOT IMPLEMENTED'
      RETURN
      END

      SUBROUTINE NUMBER(X,Y,A,B,C,II) 20
      PRINT * , ' NUMBER NOT IMPLEMENTED'
      RETURN
      END

      SUBROUTINE SYMBOL(X,Y,A,B,C,II) 34
      PRINT * , ' SYMBOL NOT IMPLEMENTED'
      RETURN
      END

      SUBROUTINE PLOT(X,Y,II) 24
      PRINT * , ' PLOT NOT IMPLEMENTED'
      RETURN
      END

      SUBROUTINE LINE(X,Y,NPTS,I,J,K) 1
      PRINT * , ' LINE NOT IMPLEMENTED'
      RETURN
      END