WRTHED.inc
References to this file elsewhere.
1 SUBROUTINE WRTHED
2 I(NFL ,
3 I TYPE ,IDATE ,FILE ,MODEL ,RESL ,EXPR ,KTUNIT,IDTYPE,
4 I IBACK ,NNSP ,
5 I IMD ,JMD ,NPROD ,FLONID,FLATID,
6 I XID ,XJD ,XLATD ,XLOND ,
7 I VCODD ,KMD ,AAD ,BBD ,
8 I IMM ,JMM ,NPROM ,FLONIM,FLATIM,
9 I XIM ,XJM ,XLATM ,XLONM ,
10 I VCODM ,KMM ,AAM ,BBM ,
11 I CINF )
12 CC IMPLICIT DOUBLE PRECISION (A-H,O-Z,\)
13 C
14 INTEGER IDATE(5)
15 CHARACTER*8 FILE, MODEL, RESL
16 CHARACTER*4 TYPE, EXPR, KTUNIT
17 C
18 INTEGER IMD, JMD, IMM, JMM
19 CHARACTER*4 NPROD, NPROM
20 C
21 CHARACTER*4 VCODD, VCODM
22 INTEGER KMD, KMM
23 DIMENSION AAD(KMD+1), BBD(KMD+1), AAM(KMM+1), BBM(KMM+1)
24 C
25 CHARACTER*80 CINF(10)
26 C
27 WRITE(NFL) TYPE, IDATE, FILE, MODEL, RESL, EXPR, KTUNIT, IDTYPE,
28 1 IBACK, NNSP
29 WRITE(NFL) IMD, JMD, NPROD,
30 1 REAL(FLONID), REAL(FLATID),
31 2 REAL(XID), REAL(XJD), REAL(XLATD), REAL(XLOND)
32 WRITE(NFL) VCODD, KMD,
33 1 (REAL(AAD(I)),I=1,KMD+1), (REAL(BBD(I)),I=1,KMD+1)
34 WRITE(NFL) IMM, JMM, NPROM,
35 1 REAL(FLONIM), REAL(FLATIM),
36 2 REAL(XIM), REAL(XJM), REAL(XLATM), REAL(XLONM)
37 WRITE(NFL) VCODM, KMM,
38 1 (REAL(AAM(I)),I=1,KMM+1), (REAL(BBM(I)),I=1,KMM+1)
39 WRITE(NFL) CINF
40 C
41 WRITE(6,*) 'WRTHED:FILE,NFL ', FILE,' ',NFL
42 C
43 RETURN
44 END SUBROUTINE WRTHED