source: PSPA/transportPSPA/trunk/include/RS.CIN @ 15

Last change on this file since 15 was 15, checked in by lemeur, 12 years ago

transport pspa initial

File size: 198 bytes
Line 
1C RS        TEMPORARY STORAGE FOR MATRIX MULTIPLY
2C
3        REAL            RS(6,6), RT(6,6)
4        REAL            RSL(36), RTL(36)
5        EQUIVALENCE     (RS(1,1),RSL(1)), (RT(1,1),RTL(1))
6C
7        COMMON /RS/     RS, RT
Note: See TracBrowser for help on using the repository browser.