home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / fortran / linpkdrv.arc / SEX.CAL < prev    next >
Text File  |  1984-01-19  |  2KB  |  37 lines
  1.   4:C     CALL TRAPS(0,0,5001,0,0)
  2.  10:      CALL SQREE(LUNIT)
  3.  27:      CALL SGETEX(RX,LDX,Z,LDZ,P,S,LUNIT)
  4.  28:      CALL SRHXR(RX,LDX,P,RHR,LDR)
  5.  29:      CALL SRHXZ(RX,LDX,P,Z(1,1),Z(1,3))
  6.  51:            CALL SCHEX(R,LDR,P,K,L,Z(1,2),LDZ,1,C,S,JOB)
  7.  52:            CALL SCMPEX(R,LDR,RHR,LDR,Z(1,2),LDZ,P,JOB,K,L,LUNIT)
  8.  57:      CALL SGETEX(RX,LDX,Z,LDZ,P,S,LUNIT)
  9.  58:      CALL SRHXR(RX,LDX,P,RHR,LDR)
  10.  59:      CALL SRHXZ(RX,LDX,P,Z(1,1),Z(1,3))
  11.  69:         CALL SCHEX(R,LDR,P,K,L,Z(1,2),LDZ,1,C,S,JOB)
  12.  70:         CALL SCMPEX(R,LDR,RHR,LDR,Z(1,2),LDZ,P,JOB,K,L,LUNIT)
  13.  76:      CALL SGETEX(RX,LDX,Z,LDZ,P,S,LUNIT)
  14.  77:      CALL SRHXR(RX,LDX,P,RHR,LDR)
  15.  78:      CALL SRHXZ(RX,LDX,P,Z(1,1),Z(1,3))
  16. 100:            CALL SCHEX(R,LDR,P,K,L,Z(1,2),LDZ,1,C,S,JOB)
  17. 101:            CALL SCMPEX(R,LDR,RHR,LDR,Z(1,2),LDZ,P,JOB,K,L,LUNIT)
  18. 108:      CALL SGETEX(RX,LDX,Z,LDZ,P,S,LUNIT)
  19. 109:      CALL SRHXR(RX,LDX,P,RHR,LDR)
  20. 110:      CALL SRHXZ(RX,LDX,P,Z(1,1),Z(1,3))
  21. 132:            CALL SCHEX(R,LDR,P,K,L,Z(1,2),LDZ,1,C,S,JOB)
  22. 133:            CALL SCMPEX(R,LDR,RHR,LDR,Z(1,2),LDZ,P,JOB,K,L,LUNIT)
  23. 184:         CALL SARRAY(R,LDR,P,P,P,LUNIT)
  24. 186:         CALL SARRAY(Z,LDZ,P,1,-P,LUNIT)
  25. 196:      CALL SRHXZ(R,LDR,P,Z(1,1),Z(1,3))
  26. 197:      CALL SRHXR(R,LDR,P,R,LDR)
  27. 205:            CALL SSWAP(P,R(1,J),1,R(1,J+1),1)
  28. 206:            CALL SSWAP(1,Z(J,3),1,Z(J+1,3),1)
  29. 209:            CALL SSWAP(P,R(J,1),LDR,R(J+1,1),LDR)
  30. 215:            CALL SSWAP(P,R(1,J),1,R(1,J+1),1)
  31. 216:            CALL SSWAP(1,Z(J,3),1,Z(J+1,3),1)
  32. 220:            CALL SSWAP(P,R(J,1),LDR,R(J+1,1),LDR)
  33. 259:      CALL SGETRX(X,LDX,PP1,P,S)
  34. 276:         CALL SARRAY(X,LDX,P,P,P,LUNIT)
  35. 278:         CALL SARRAY(Z,LDZ,P,1,-P,LUNIT)
  36. 299:      CALL SXGEN(X,LDX,N,P,S)
  37.