6 SUBROUTINE write_cover_tex_cover
48 USE modd_data_cover, ONLY : xdata_sea, xdata_water, xdata_nature, xdata_town
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
69 CHARACTER(LEN=5),
DIMENSION(4 ) :: ydata_surftype
70 CHARACTER(LEN=6) :: ystring6
72 CHARACTER(LEN=200):: yfmt
75 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'WRITE_COVER_TEX_COVER',0,zhook_handle)
80 IF (ntex==0 .AND. lhook) CALL dr_hook(
'WRITE_COVER_TEX_COVER',1,zhook_handle)
90 WRITE(ntex,*)
'\medskip\'
91 WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c||}
'
92 WRITE(NTEX,*) '\
hline'
93 WRITE(NTEX,*) '\
hline'
95 WRITE(NTEX,*) '&& urban and & cultivated and &inland waters&seas and
'
96 WRITE(NTEX,*) '&cover type& artificial areas & natural areas&&oceans
'
98 WRITE(NTEX,*) "&& zones urbanis\'ees & zones cultiv\'ees &eaux int\'erieures& mers et\\"
99 WRITE(NTEX,*) "&Type de Surface& ou artificielles & ou naturelles &&oc\'eans\\"
101 WRITE(NTEX,*) '\
hline'
102 WRITE(NTEX,*) '\
hline'
107 IF (XDATA_TOWN(I)+XDATA_NATURE(I)+XDATA_WATER(I)+XDATA_SEA(I)>0.) THEN
109 IF (XDATA_TOWN (I)==0.) THEN
110 YDATA_SURFTYPE(1) = ' '
112 WRITE(YFMT,'(a2,i1,a1,i1,a1)
') '(f
',NB(XDATA_TOWN(I)),'.
',DEC(XDATA_TOWN(I)),')
'
113 WRITE(YSTRING6, FMT=YFMT) XDATA_TOWN(I)
114 YDATA_SURFTYPE(1) = YSTRING6
116 IF (XDATA_NATURE(I)==0.) THEN
117 YDATA_SURFTYPE(2) = ' '
119 WRITE(YFMT,'(a2,i1,a1,i1,a1)
') '(f
',NB(XDATA_NATURE(I)),'.
',DEC(XDATA_NATURE(I)),')
'
120 WRITE(YSTRING6, FMT=YFMT) XDATA_NATURE(I)
121 YDATA_SURFTYPE(2) = YSTRING6
123 IF (XDATA_WATER (I)==0.) THEN
124 YDATA_SURFTYPE(3) = ' '
126 WRITE(YFMT,'(a2,i1,a1,i1,a1)
') '(f
',NB(XDATA_WATER(I)),'.
',DEC(XDATA_WATER(I)),')
'
127 WRITE(YSTRING6, FMT=YFMT) XDATA_WATER(I)
128 YDATA_SURFTYPE(3) = YSTRING6
130 IF (XDATA_SEA (I)==0.) THEN
131 YDATA_SURFTYPE(4) = ' '
133 WRITE(YFMT,'(a2,i1,a1,i1,a1)
') '(f
',NB(XDATA_SEA(I)),'.
',DEC(XDATA_SEA(I)),')
'
134 WRITE(YSTRING6, FMT=YFMT) XDATA_SEA(I)
135 YDATA_SURFTYPE(4) = YSTRING6
139 I,' &
',CNAME(I),' &
',YDATA_SURFTYPE(1),' &
',YDATA_SURFTYPE(2),' &
',&
140 YDATA_SURFTYPE(3),' &
', YDATA_SURFTYPE(4), ' '
142 WRITE(NTEX,*) '\
hline'
143 CALL HLINE(NTEX,GLINE,I)
148 WRITE(NTEX,*) '\end{tabular}
'
150 !-------------------------------------------------------------------------------
152 WRITE(NTEX,*) '\clearpage
'
156 IF (LHOOK) CALL DR_HOOK('write_cover_tex_cover
',1,ZHOOK_HANDLE)
158 !-------------------------------------------------------------------------------
160 END SUBROUTINE WRITE_COVER_TEX_COVER
subroutine hline(KTEX, GLINE, I)