MODIS_SMF_SETDYNAMICMSG_V2.1.f

Go to the documentation of this file.

       SUBROUTINE modis_smf_setdynamicmsg(CODE,STRING_USER,FUNC_NAME)
       IMPLICIT NONE
 
c      -----------------------------------------------------------------------
c      !F77
c
c       !DESCRIPTION: 
c
c       writes a message string to the logstatus file.  the
c       complete message consists of three pieces:  a predefined modis
c       or sdptk status message; a dynamic message segment(string_user)
c       passed by the calling program; and the name of the FUNCTION or 
c       SUBROUTINE that calls modis_smf_setdynamicmsg. 
c
c       !INPUT PARAMETERS:  
c
c        INTEGER    CODE - A NAMED CONSTANT RELATED TO A PREDEFINED MODIS 
c                     or sdp tk message string
c        CHARACTER  STRING_USER - A DYNAMIC MESSAGE STRING DEFINED BY 
c                            calling PROGRAM
c        CHARACTER  FUNC_NAME - NAME OF MODULE REPORTING MESSAGE
c
c        !OUTPUT PARAMETERS:     NONE
c
c      !REVISION HISTORY:
c
c      !TEAM-UNIQUE HEADER: 
c
c      this software was developed by the modis science DATA support
c      team for the national aeronautics and space administration,
c      goddard space flight center, under contract nas5-32373.
c
c      !REFERENCES AND CREDITS:
c
c      written by vicky lin 
c
c      research and DATA systems corporation
c      saic/gsc modis science DATA support office
c      7501 forbes blvd, seabrook md 20706
c
c      vlin@ltpmail.gsfc.nasa.gov
c
c      !DESIGN NOTES:
c
c      predefined messages with a fatal status level(i.e _f_) 
c      cause PROGRAM to EXIT via a fortran EXIT statement.  
c
c      nonsuccessful completion of embedded SUBROUTINE call also 
c      cause PROGRAM to abort via a fortran EXIT statement.  
c
c      externals: 
c
c      named constants:
c            modis_f_generic(pgs_modis_39500.f)
c            pgs_s_success(pgs_smf.f)
c            pgs_true(pgs_smf.f)
c
c      functions and subroutines:
c            string_loc
c            concatenate
c            pgs_smf_setdynamicmsg(libpgstk.a)
c            pgs_smf_getmsgbycode(libpgstk.a)
c            pgs_smf_testfatallevel(libpgstk.a)
c
c      !END
c      -----------------------------------------------------------------------
 
c sdp toolkit header file
 
c      include 'PGS_SMF.f'
c      include 'PGS_MODIS_39500.f'
 
c PARAMETER declarations
      integer PGS_SMF_MAX_MSGBUF_SIZE
      parameter( pgs_smf_max_msgbuf_size = 480)
      
      CHARACTER*(*)  FUNCNAME
      parameter(funcname = 'MODIS_SMF_SETDYNAMICMSG') 
 
      INTEGER        USER_MAX_BUF_LEN
      parameter(user_max_buf_len = 4096)
      
 
c declaration of variables
      CHARACTER*(*)  STRING_USER
      CHARACTER*(*)  FUNC_NAME
      CHARACTER*25   MSG25
      CHARACTER*512  MSG
c      CHARACTER*(USER_MAX_BUF_LEN) BUF
 
      INTEGER RTN,RETURNSTATUS, RETURNSTATUS2
      INTEGER FBYTE,LBYTE,CODE
 
c  FUNCTION declarations
c      INTEGER STRING_LOC
c      INTEGER PGS_SMF_SETDYNAMICMSG
c      INTEGER PGS_SMF_GETMSGBYCODE
c      INTEGER PGS_SMF_TESTFATALLEVEL
 
c  initialize variables
c      buf = ' '
      msg = ' '
      returnstatus = 0
      returnstatus2 = 0
 
c  get predefined message from seed file based on ASSOCIATED named
c  constant.  IF unable to get predefined message, report problem
c  to logstatus file and exit. 
 
 
c  concatenate user message with nmemonic message.
 
c      CALL concatenate(msg,string_user,buf)
 
 
c  WRITE message to logstatus file.
 
      print*, code,trim(msg), " ", trim(string_user), " ", trim(func_name)
 
 
c  test for fatal error.
 
 
      RETURN
      END