Subroutine transpmodel( invar, dim_invar, tp_netass, option1) |
ARGUMENTS
invar | real*8 | (dim_invar) | intent(in) | ? * Declarations | 35, 43, 51 |
dim_invar | integer |   | intent(in) | ? * Declarations | 35, 40, 43, 51 |
tp_netass | real*8 |   | intent(inout) | ?   | 35, 41, 48, 97, 118, 170, 176 |
option1 | integer |   | intent(in) | ?   | 35, 42, 51, 134, 146, 170, 176 |
USE STATEMENTS