Fortran: Anhang B: Kettenlinie: Catenary.f90

program catenary
  use catdisl	
  implicit none

  call input
  call calculate        
  call output
  call plot("CONS")
end program catenary