.
.       THIS ELEMENT CONTAINS PH3-4 FORTRAN INTERFACE CODE.
.
          PREQ
M    EQU  14
FORSV*  PROC
        DS      A0,N3FXSV
        DS      A2,N3FXSV+2
        DS      A4,N3FXSV+4
        S      R1,N3FXSV+6
        S      R2,N3FXSV+7
        S      R3,N3FXSV+8
        END
$(1)
N3FX01* FORSV . INTERFACE TO ...
        J       N3PALF
N3FX02* FORSV . INTERFACE TO N3PSX
        EX      1,B11              . MOVE ADDR
        S       A0,N3FXAR          . TO ARGLIST.
        J       N3PSX              . DISAPPEAR.
N3FX03* FORSV . INTERFACE TO ...
        J       N3XPB
N3FX04* FORSV . INTERFACE TO ...
        J       N3XPH1
N3FX05* FORSV . INTERFACE TO ...
        J       N3XPH2
N3FX06* FORSV . INTERFACE TO ...
        J       N3XINS
N3FXRS* DL      A0,N3FXSV          . RESTORE VOLATILE ...
        DL      A2,N3FXSV+2        .   USED BY ALL FORTRAN INTERFACE PROCS.
        DL      A4,N3FXSV+4
        L      R1,N3FXSV+6
        L      R2,N3FXSV+7
        L      R3,N3FXSV+8
        J       0,B11
$(2) .
N3FXSV*    RES   9    SAVE AREA FOR A AND REGISTERS GOING INTO FORTRAN
N3FXAR* RES     1                  . SINGLE ARG TO INDIRECT TO (FORTRAN)
        END.