home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e003 / 12.ddi / COT.FOR < prev    next >
Encoding:
Text File  |  1987-10-29  |  1.1 KB  |  19 lines
  1.        FUNCTION COT(X)
  2.        REAL*8 X,COT
  3.        COT=1.D+0/TAN(X)
  4.        RETURN 
  5.        END
  6.         SUBROUTINE SEARCH(MAXNOY,INP,J,KJ,M)                                    
  7.         INTEGER NY1(3000)                                                       
  8.         COMMON /I2BYT/NY1                                                       
  9.         NX=M*J+KJ                                                               
  10.         NY=M*KJ+J                                                               
  11.         INP=0                                                                   
  12.         DO 100 JJ=1,MAXNOY                                                      
  13.         IF (NY1(JJ).EQ.NX.OR.NY1(JJ).EQ.NY)INP=JJ                               
  14. 100     CONTINUE                                                                
  15.         IF(INP.EQ.0)MAXNOY=MAXNOY+1                                             
  16.         IF(INP.EQ.0)INP=MAXNOY                                                  
  17.         RETURN                                                                  
  18.         END                                                                     
  19.