File C2.F4

Directory of image this file is from
This file as a plain text file

      SUBROUTINE CEL2(RES,AK,IER)
	A=1.0
	B=1.-AK**2
      IER=0
      ARI=2.
      GEC=(.5-AK)+.5
      GEC=GEC+GEC*AK
      RES=A
      A1=A+B
      BC=B+B
      IF(GEC) 1,2,6
 1    IER=1
 2    IF(B) 3,8,4
 3    RES=-1.0E30
      RETURN
 4    RES=1.0E30
      RETURN
 5    GEC=GEC*AARI
 6    GEC=SQRT(ABS(GEC))
      GEC=GEC+GEC
      AARI=ARI
      ARI=ARI+GEC
      BC=BC+RES*GEC
      RES=A1
      BC=BC+BC
      A1=BC/ARI+A1
      IF(GEC/AARI-.9999) 5,7,7
 7    RES=A1/ARI
      RES=RES+0.5707963*RES
 8    RETURN
      END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search