REDDAT_BIN.inc

1       SUBROUTINE REDDAT_BIN                                                         
2      I(NFL   , IMAXE , JMAXE , KMAX  , PSE    ,                                               
3      O GTE   , GUE   , GVE   , GQE   )                          
4 C                                                                               
5       REAL*8 PSE(IMAXE,JMAXE)
6       REAL*8 GUE(IMAXE,JMAXE,KMAX),GVE(IMAXE,JMAXE,KMAX),
7      &     GTE(IMAXE,JMAXE,KMAX),GQE(IMAXE,JMAXE,KMAX)                                                
8       REAL*8 DUM1(IMAXE,JMAXE),DUM2(IMAXE,JMAXE)
9       REAL*8 DUM3(IMAXE,JMAXE,KMAX),DUM4(IMAXE,JMAXE,KMAX),
10      &     DUM5(IMAXE,JMAXE,KMAX),DUM6(IMAXE,JMAXE,KMAX)                                                
11       
12 C                                                                               
13           READ(NFL) DUM1
14           READ(NFL) DUM2
15           PSE = DUM2
16 
17           READ(NFL) DUM3
18           GTE= DUM3
19 
20           READ(NFL) DUM4
21           GUE= DUM4
22 
23           READ(NFL) DUM5
24           GVE= DUM5
25        
26           READ(NFL) DUM6
27           GQE= DUM6
28 
29       RETURN                                                                    
30 C                                                                               
31       END SUBROUTINE REDDAT_BIN