_GET_GRDIR.GRS

  PROC/VERNUM,PLTFRM,PFTYP2,GRDIR,DIAGLV,SRESP
$$
$$ SUBROUTINE: _GET_GRDIR.GRS
$$
$$ KEYWORDS:
$$   UTILITY
$$
$$ ABSTRACT:
$$   THIS SUBROUTINE FINDS THE GRIP INTERNATIONAL LIBRARY
$$   STRUCTURE.
$$.
$$   It first checks for an environment variable called UGII_GRIPLIB. If
$$   that variable is not defined, then it uses UGII_BASE_DIR/griplib.
$$.
$$
$$ RELEASE HISTORY:
$$   30-JUN-88 INITIAL SUBMISSION TO LIBRARY
$$   02-JAN-91 REVISED TO HANDLE DIFFERENT PLATFORMS
$$   25-JAN-91 UGFM =] DEC PATHNAME LOGIC ADDED
$$   13-SEP-91 VERSION HANDLING CODE ADDED.
$$   03-OCT-91 SPECIAL VERSION HANDLING ADDED.
$$   26-JAN-93 DOCUMENTATION FIXES.
$$   27-JAN-93 SEARCH MODIFIED TO WORK IF ! POINTS TO
$$             EITHER .../librarian OR .../main
$$   28-JAN-93 CODE ADDED TO CHECK CURRENT DIR, "!" AND "$". IF
$$             THEY DO NOT CONTAIN THE STRING "GRIPLIB",
$$             THEY ARE QUICKLY BYPASSED. UGNET OPERATION
$$             VERIFIED.
$$   29-JAN-93 CODE CLEANUP. REDUNDANT CODE DELETED.
$$   03-FEB-93 DIAGNOSTICS ADDED
$$   09-FEB-93 CALL TO UNIX ENVIRONMENT ADDED
$$   25-NOV-96 Modified to simplify search:
$$             First, check for UGII_GRIPLIB variable, if not defined
$$             use UGII_BASE_DIR followed by griplib for path.
$$   08-SEP-98 DEC VMS code removed.
$$   08-SEP-98 Directory search bug fixed.
$$   23-MAY-01 Pathname error fixed: grip/main =] grip\main (winNT only)
$$   13-OCT-2001 Contact Information Updated!
$$
$$ Called by:
$$   access_demo.grs
$$   dopen_demo.grs
$$   font2geo.grs
$$   machscr.grs
$$   note_engrave.grs
$$   (Also A Utility Subroutine)
$$
$$ AUTHOR:  Greg Krumrey, Information Manager
$$ COMPANY: Patriot Machine, Inc.
$$          951 Harmsted Court
$$          St. Charles, MO 63301
$$          greg.krumrey@patriot-machine.com
$$          636-940-1776 x 130
$$
$$ SYSTEM TYPE: ALL
$$
$$ THEORY/VARIABLE USAGE:
$$