Function:     MYNAME

Purpose:      Obtain the name under which a GIPSY task is being run.

Category:     SYSTEM, USER-INTERFACE 

File:         srvreq.c

Author:       J.P. Terlouw

Declaration:  CHARACTER*n MYNAME

Returns:      Name of running task.
 
Use:          MYNAME()

Example:      CHARACTER*9 MYNAME,NAME
              .
              .
              NAME = MYNAME()
              IF (NAME .EQ. 'ADD')
              THEN
                 .
                 .

Updates:      Feb 26, 1986: JPT, original document.
              Feb 15, 1990: JPT, Portable version, rewritten in ANSI C.