16 lines
527 B
FortranFixed
16 lines
527 B
FortranFixed
subroutine IERM1(SUBNAM,INDIC,LEVEL,MSG,LABEL,VALUE,FLAG)
|
|
c Copyright (c) 1996 California Institute of Technology, Pasadena, CA.
|
|
c ALL RIGHTS RESERVED.
|
|
c Based on Government Sponsored Research NAS7-03001.
|
|
C>> 1990-01-18 CLL Added Integer stmt for VALUE. Typed all variables.
|
|
C>> 1985-08-02 IERM1 Lawson Initial code.
|
|
C
|
|
integer INDIC, LEVEL, VALUE
|
|
character*(*) SUBNAM,MSG,LABEL
|
|
character*1 FLAG
|
|
call ERMSG(SUBNAM,INDIC,LEVEL,MSG,',')
|
|
call IERV1(LABEL,VALUE,FLAG)
|
|
C
|
|
return
|
|
end
|