Subroutine transpmodel

transpmodel is defined in file .

HEADER
Subroutine transpmodel( invar, dim_invar, tp_netass, option1)

ARGUMENTS
invarreal*8(dim_invar)intent(in)
? * Declarations
35, 43, 51
dim_invarinteger intent(in)
? * Declarations
35, 40, 43, 51
tp_netassreal*8 intent(inout)
?  
35, 41, 48, 97, 118, 170, 176
option1integer intent(in)
?  
35, 42, 51, 134, 146, 170, 176

USE STATEMENTS