!====================================================================
   PROGRAM PARACHUTIST
   ! Tabulation of parachutist's descent z and and speed zdot
   ! as functions of time t

      !Prompt for and read in the free-fall time
      Print*, ...
      Read*, ...

      !Assign the program's associated constants
      ...

      !Print the table headings
      ...
            
      !Loop covering the specified times
      t=0
      Do
         ! Calculate the distance above ground
         If(...) ...
            x=g*t/U1
            z=...
            zdot=...
         Else
            x=g*(t-t0)/U2  !store re-used expressions
            c=cosh(x)
            s=sinh(x)
            z=...
            zdot=...
         Endif
      
         !Print a line of table using T formats
         Print 100, ...
100      Format(...)

         !Stop with message if landed
         If(...) Stop '....'

         !If we haven't yet landed then increment t as in problem specs
         If(t<15) then
            ...
         Elseif(...) ...
            ...
         ...
            ...
         ...

      End Do !End of the t-loop
      
   END PROGRAM PARACHUTIST
!====================================================================