Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0025/gamxx.for
There is 1 other file named gamxx.for in the archive. Click here to see a list.
00010	C   GAMXX.SRC   OLS   32 LINES
00020	C
00030	      FUNCTION GAM(XPL1)
00040	1     X=XPL1-1.
00050	      TEMP=1.
00060	      TMP=XPL1
00070	      IF (X-1.)  11, 11, 101
00080	11    IF (X)  201, 301, 301
00090	101   N1=X
00100	      DO 121 J1=1,N1
00110	      TMP=TMP-1.
00120	121   TEMP=TEMP*TMP
00130	      GO TO 301
00140	201   N1=1.-X
00150	      DO 221 J1=1,N1
00160	      IF (TMP)  211, 241, 211
00170	211   TEMP=TEMP/TMP
00180	221   TMP=TMP+1.
00190	      GO TO 301
00200	241   GAM=0.
00210	      GO TO 5001
00220	301   TMP=TMP-1.
00230		GAM=.035868343*TMP-.193527818
00240		GAM=GAM*TMP+.482199394
00250		GAM=GAM*TMP-.756704078
00260		GAM=GAM*TMP+.918206857
00270		GAM=GAM*TMP-.897056937
00280		GAM=GAM*TMP+.988205891
00290		GAM=GAM*TMP-.577191652
00300		GAM=GAM*TMP+1.
00310		GAM=GAM*TEMP
00320	5001  END