PROGRAM SQROOT ! ! Purpose: illustrate the use of the sqrt function ! REAL:: X ! WRITE(*,*)'Enter a number' READ(*,*)X WRITE(*,*)SQRT(X) ! END PROGRAM SQROOT
