source: PSPA/transportPSPA/trunk/include/RC.CIN @ 452

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

transport pspa initial

File size: 380 bytes
Line 
1C RC         FIRST-ORDER R1 MATRICES
2C
3C RC     CUMULATIVE R MATRIX FROM LAST R1 UPDATE THROUGH LAST R2 UPDATE.
4C RCV    CUMULATIVE PARTIALS MATRIX FROM LAST R1 UPDATE THROUGH LAST R2 UPDATE
5C
6      REAL            RC(6,6), RCV(6,6,NPVAR)
7      REAL            RCL(36), RCVL(36,NPVAR)
8      EQUIVALENCE     (RC(1,1),RCL(1)), (RCV(1,1,1),RCVL(1,1))
9C
10      COMMON /RC/     RC, RCV
Note: See TracBrowser for help on using the repository browser.