1      FUNCTION ARCSIN(A)
2C
3C     ----TAKES ARCSIN OF ARGUMENT USING STANDARD FORTRAN.
4C
5      COMMON/CONSNT/ PI
6      IF(ABS(A).EQ.1.)GO TO 1020
7      IF(ABS(A).GT.1.0)GO TO 1000
8      ARCSIN=ATAN(A/SQRT(1.-A**2))
9      RETURN
10 1000 WRITE(6,1010)A
11      ARCSIN=1000.
12 1010 FORMAT(17H0ERROR-ARCSIN OF ,E12.5)
13      GO TO 1030
14 1020 ARCSIN=PI/2.*A/ABS(A)
15      RETURN
16 1030 CONTINUE
17      RETURN
18      END
19