00001 C Local Paramters
00002 INTEGER N_SDM
00003 PARAMETER (N_SDM = FIST_MIX*(FIST_MIX+1)/2)
00004
00005 C Local variables
00006 DOUBLE PRECISION SDM(N_SDM) !Lower diagonal matrix data
00007 common /mix/sdm
Generated on Tue Nov 29 23:12:24 2016 for BOSS_7.0.2 by
1.4.7