Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0137/fct.f4
There is 1 other file named fct.f4 in the archive. Click here to see a list.
      SUBROUTINE FCT(X,Y,D)
      DIMENSION Y(1),D(1)
      D(1) = 1.0/Y(2)                                                        
      D(2) = - (1.0/Y(1))                                                    
      RETURN
      END