Subroutine transpmodel


VARIABLES

tp_netasst_dreal*8
?  
44, 58, 123, 170
tp_netassg_dreal*8
?  
45, 57, 121, 170