Function:     GIPSYTASK

Purpose:      GIPSYTASK tests whether the calling program is a GIPSY task.

Category:     SYSTEM, USER-INTERFACE

File:         srvreq.c

Author:       J.P. Terlouw

Use:          GIPSYTASK()    LOGICAL function

              returns .TRUE. when INIT has been called successfully,
              .FALSE. otherwise.

Updates:      Jul 22, 1994: JPT, Original document.
              Jan 15, 2009: JPT, Now depends on INIT call.