CALL SEQUENCE...
       cosf  XIN XOUT INPUT OUTPUT [ -a VAL0 -kind VAL1 ]
 
 
      AUTHOR - B.Dugas, 10 mai 1994.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/cosf.ptn,v 4.12 2014/09/25 20:20:46 dugas Exp $
 
 
      DESCRIPTION...
       A CCC FILE ARITHMETIC PROGRAM WHICH...
 
       ... PRODUCES FILE XOUT WHICH CONTAINS EITHER OF
           1) COS( A*XIN ), WHERE XIN IS CONSIDERED TO BE IN RADIANS
           2) A * ARC COS( XIN ), WHERE XIN SHOULD BE WHITHIN [-1,+1]
 
 
       Note that ARC TAN( XIN ) can also be derived using the
       following relationships:
 
        ARC SIN( XIN ) = PI / 2 - ARC COS( XIN )
        ARC TAN( XIN ) = ARC SIN(  XIN / [ SQRT( XIN^2 +1 ) ] )
 
 
      INPUT PARAMETER...
 
       A    = WAVE NUMBER. BLANK DEFAULT VALUE IS 1.0
       KIND = 0, COSINUS CALCULATION (DEFAULT)
              1, ARC COSINUS CALCULATION
 
       READ( 5,5010 ) A,KIND
 5010 FORMAT(10X,E10.0,I5)
 
 
      EXAMPLE OF INPUT CARD...
 
  COSF           2.5    0
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 ARC COSINUS MODE UNSUPPORTED FOR COMPLEX DATA
        2 MORE THAN ONE SIZE IN XIN
        3 ILLEGAL DATA RANGE IN XIN FOR ARC COSINUS MODE
        4 ERROR ABORT READING INPUT
        5 ERROR ABORT READING XIN OR TOO MANY LEVELS