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