C
C
C
      SUBROUTINE   XOSVAR
     I                   (WDNAME,
     O                    FILNAM)
C
C     + + + PURPOSE + + +
C     check for operating system variable.
C
C     + + + DUMMY ARGUMENTS + + +
      CHARACTER*64 WDNAME,FILNAM
C
C     + + + ARGUMENT DEFINITIONS + + +
C     WDNAME - name of the WDM file
C     FILNAM - output name from operating system
C
C     + + + FUNCTIONS + + +
      INTEGER   ZLNTXT
C
C     + + + EXTERNALS + + +
      EXTERNAL  ZLNTXT
C     EXTERNAL  OSVAR
C
C     + + + END SPECIFICATIONS + + +
C
C     call interactor routine for environment variable
C     CALL OSVAR (WDNAME,
C    O            FILNAM)
      FILNAM= ' '
      IF (ZLNTXT(FILNAM).EQ.0) THEN
C       no environment variable set, try wdname
        FILNAM = WDNAME
      END IF
C
      RETURN
      END
C
C
C
      SUBROUTINE   XGTARG
     M                   (FNAME)
C
C     + + + PURPOSE + + +
C     get name of input file from command line
C     *** Lahey specific ***
C
C     + + + DUMMY ARGUMENTS + + +
      CHARACTER*64  FNAME
C
C     + + + ARGUMENT DEFINTIONS + + +
C     FNAME  - Name of input file
C
C     + + + LOCAL VARIABLES + + +
      INTEGER       POS
      CHARACTER*64  TNAME, XNAME
C
C     + + + EXTERNALS + + +
C     EXTERNAL      GETCL
C
C     + + + INPUT FORMATS + + +
 1000 FORMAT(A64)
C
C     + + + OUTPUT FORMATS + + +
 2000 FORMAT(//,' Enter the name of your input file: ')
C
C     + + + END SPECIFICATIONS + + +
C
C     this is a Lahey extension
      CALL GETCL (TNAME)
      WRITE(99,*) 'XGTARG1:',FNAME
      WRITE(99,*) '      2:',TNAME
C
      IF (TNAME .EQ. ' ') THEN
C       prompt user
        WRITE(*,2000)
        READ (*,1000) TNAME
      END IF
C
      IF (INDEX(TNAME,':').GT.0) THEN
C       workaround for windows GETCL problem
        POS = INDEX(TNAME,' ')
        XNAME= TNAME
        TNAME= XNAME(POS:64)
        WRITE(99,*) '      3',TNAME
      END IF
C
      IF (TNAME .NE. ' ') THEN
C       use user-supplied file name
        FNAME= TNAME
      END IF
C
      RETURN
      END
C
C
C
      SUBROUTINE   XGTCHR
     O                   (CH1,CH2,CH3)
C
C     + + + PURPOSE + + +
C     get characters for screen display
C     pc specific
C
C     + + + DUMMY ARGUMENTS + + +
      CHARACTER*1   CH1,CH2,CH3
C
C     + + + ARGUMENT DEFINTIONS + + +
C     CH1    - character for hspf screen output
C     CH2    - character for hspf screen output
C     CH3    - character for hspf screen output
C
C     + + + INTRINSICS + + +
      INTRINSIC   CHAR
C
C     + + + END SPECIFICATIONS + + +
C
      CH1= CHAR(176)
      CH2= CHAR(219)
CTHJ      CH2= ' '
      CH3= CHAR(205)
C
      RETURN
      END
C
C
C
      SUBROUTINE   XCLRSC
C
C     + + + PURPOSE + + +
C     clear screen for hspf run
C     pc specific
C
C     + + + OUTPUT FORMATS + + +
 2040 FORMAT(1X,'')
C
C     + + + END SPECIFICATIONS + + +
C
      WRITE (*,2040)
C
      RETURN
      END
C
C
C
      SUBROUTINE   XGTRCL
     I                   (BASE,
     O                    RCL)
C
C     + + + PURPOSE + + +
C     get record length
C     pc specific
C
C     + + + DUMMY ARGUMENTS + + +
      INTEGER   BASE,RCL
C
C     + + + ARGUMENT DEFINITIONS + + +
C     BASE - base number of record length
C     RCL  - total record length
C
C     + + + END SPECIFICATIONS + + +
C
      RCL = 4*BASE
C
      RETURN
      END
C
C
C
      SUBROUTINE   XPLFRM
     O                   (FRM)
C
C     + + + PURPOSE + + +
C     get frm for pltgen
C
C     + + + DUMMY ARGUMENTS + + +
      CHARACTER*30   FRM
C
C     + + + ARGUMENT DEFINTIONS + + +
C     FRM    - format needed for pltgen
C
C     + + + END SPECIFICATIONS + + +
C
      FRM= 'FORMATTED'
C
      RETURN
      END