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)