c f77 test.f -o test
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c This program prompts for and reads in a number, and outputs its square

       real number	! the number to be read in and squared
       real square	! the output
       
       ! prompt user for the number
       print*,'What number should we square?'
       read*,number

       call square_the_number(number,square)       
       
       ! output the result
       print*,'The square is ',square
       
       end ! of main program
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c This subroutine squares the number passed in.
       subroutine square_the_number(number,square)

       real number ! input number to be squared
       real square ! the output
    
       ! square the number
       square=number**2
       
       end ! of subroutine square_the_number
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc