|
CAM
|
Variables | |
| integer, parameter | pnb_hirs = 7 |
| integer, parameter | pnf_msu = 4 |
| integer, parameter | msu_flag = 1 |
| logical | dohirs |
| integer | ihirsfq |
| character *8, dimension(pnb_hirs) | hirsname |
| character *8, dimension(pnf_msu) | msuname |
| logical hirsbtpar::dohirs |
| character*8, dimension(pnb_hirs) hirsbtpar::hirsname |
| integer hirsbtpar::ihirsfq |
| integer, parameter hirsbtpar::msu_flag = 1 |
| character*8, dimension(pnf_msu) hirsbtpar::msuname |
| integer, parameter hirsbtpar::pnb_hirs = 7 |
| integer, parameter hirsbtpar::pnf_msu = 4 |