      COMPLEX FUNCTION CSINH (Z)
C APRIL 1977 VERSION.  W. FULLERTON, C3, LOS ALAMOS SCIENTIFIC LAB.
      COMPLEX Z, CI, CSIN
      DATA CI /(0.,1.)/
C
      CSINH = -CI*CSIN(CI*Z)
C
      RETURN
      END
