REAL :: a,b,c a=-1.0; b=0.0; c=1.0 WRITE(*,*) ACOS(a),ACOS(b),ACOS(c) WRITE(*,*) ASIN(a),ASIN(b),ASIN(c)