main Program

Uses

Trident application


Variables

Type Attributes Name Initial
integer(kind=I4) :: ind
integer(kind=I4) :: istat
character(len=1) :: sep
integer(kind=I4) :: spy
integer(kind=I4) :: ter
character(len=512) :: wkd

Subroutines

subroutine prg_surf(out_unit, spy_unit)

Arguments

Type IntentOptional Attributes Name
integer(kind=I4), intent(in) :: out_unit
integer(kind=I4), intent(in) :: spy_unit