REDDAT_ASCII.inc
References to this file elsewhere.
1 SUBROUTINE REDDAT_ASCII
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 C IVAR = 6
14 C
15 C DO 1000 L = 1, IVAR
16
17 C IF(L.EQ.1) THEN
18 DO J = 1, JMAXE
19 READ(NFL,FMT='(10F12.5,1x)') (DUM1(I,J),I=1,IMAXE)
20 ENDDO
21 C ENDIF
22
23 C IF(L.EQ.2) THEN
24 DO J = 1, JMAXE
25 READ(NFL,FMT='(10F12.5,1x)') (DUM2(I,J),I=1,IMAXE)
26 ENDDO
27 PSE = DUM2
28 C ENDIF
29
30 C IF(L.EQ.3) THEN
31 DO 100 K = 1, KMAX
32 DO 100 J = 1, JMAXE
33 READ(NFL,FMT='(10F12.5,1x)') (DUM3(I,J,K),I=1,IMAXE)
34 100 CONTINUE
35 GTE= DUM3
36 C ENDIF
37
38 C IF(L.EQ.4) THEN
39 DO 200 K = 1, KMAX
40 DO 200 J = 1, JMAXE
41 READ(NFL,FMT='(10F12.5,1x)') (DUM4(I,J,K),I=1,IMAXE)
42 200 CONTINUE
43 GUE= DUM4
44 C ENDIF
45
46 C IF(L.EQ.5) THEN
47 DO 300 K = 1, KMAX
48 DO 300 J = 1, JMAXE
49 READ(NFL,FMT='(10F12.5,1x)') (DUM5(I,J,K),I=1,IMAXE)
50 300 CONTINUE
51 GVE= DUM5
52 C ENDIF
53
54 C IF(L.EQ.6) THEN
55 DO 400 K = 1, KMAX
56 DO 400 J = 1, JMAXE
57 READ(NFL,FMT='(10F12.5,1x)') (DUM6(I,J,K),I=1,IMAXE)
58 400 CONTINUE
59 GQE= DUM6
60 C ENDIF
61
62 1000 CONTINUE
63
64 RETURN
65 C
66 END SUBROUTINE REDDAT_ASCII