SN408 Subroutine

subroutine SN408(LW1I, KW1I, MW1I, FW1S, GW1S, CW1B, DW1B, A4W1K, B4W1K)

* 00090408 SUBROUTINE USED WITH SEGMENT FM408 TO SUPPLY VALUES 00100408 * TO ARRAYS THRU THE DUMMY ARGUMENT LIST 00110408 00120408 * 00310408 * 00430408

Arguments

Type IntentOptional AttributesName
integer :: LW1I
integer :: KW1I
integer :: MW1I
real :: FW1S(10)
real :: GW1S(10)
logical :: CW1B(10)
logical :: DW1B(10)
character(len=4) :: A4W1K(10)

**** 00170408

character(len=4) :: B4W1K(10)

**** 00170408


Calls

proc~~sn408~~CallsGraph proc~sn408 SN408 mt1i mt1i proc~sn408->mt1i lt1i lt1i proc~sn408->lt1i kt1i kt1i proc~sn408->kt1i

Called by

proc~~sn408~~CalledByGraph proc~sn408 SN408 program~fm407 FM407 program~fm407->proc~sn408

Contents

None