+the Greenberg family wrote:
+
+ I have a question about some lines of code within a Fortran 77 program
+ that runs on a HP3000. I thought I did, but I can't figure out what
+ the
+
+    CALL EXEC(a,b,c,d,e)
+
+ at the end of each subprogram does - there doesn't seem to be an EXEC
+ routine??
 
Call Exec (x,x,x,x) is ah HP-1000 construct.  Whoever transported this
program to the HP-3000 did not convert the Exec Calls properly, or
they wrote a subroutine "EXEC" to emulate the HP-1000 calls.
 
Call Exec is a request for system services.  Following is a list of
what the parameters are:
 
 Call Exec(IREQ, ICNTL, IBUF, IBUFLN, IPRM3, IPRM4, IPRM5, IPRM6, IPRM7)
           - or -
 I = Exec(IREQ, ICNTL, IBUF, IBUFLN, IPRM3, IPRM4, IPRM5, IPRM6, IPRM7)
 
 IREQ = 1 = Read from device (any device, including disk)
        2 = Write to  device (any device, including disk)
        3 = Device control   (any device, including disk)
        6 = Terminate program
        7 = Suspend program
        8 = Load a segment of a segmented program
        9 = Run a program, pause until it finishes
       10 = Run a program, do not pause
       11 = Get system time
       12 = Schedule a program in so many minutes/at a specific time
       13 = Device status request
       14 = Retrieve run string
       17 = Class read (program to program I/O)
       18 = Class write (program to program I/O)
       19 = Class I/O control (program to program I/O)
       20 = Class write/read (program to program I/O)
       21 = Class I/O get
       22 = Swap control/lock program in memory
       23 = Schedule a program, pause until it finishes
       24 = Schedule a program, do not pause
       26 = Memory size request
       29 = Get program ID segemnt
       37 = Get/Send program signals
       38 = Timer Signals
       39 = Get/Set/Delete Environmet Variables
 
Hope this helps...
 
Buz