47 USE modi_open_write_cover_tex_lfi
50 USE modi_mnhopen_write_cover_tex
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'WRITE_COVER_TEX_START',0,zhook_handle)
70 IF (lnowrite_texfile)
THEN
72 IF (lhook) CALL dr_hook(
'WRITE_COVER_TEX_START',1,zhook_handle)
78 IF (hprogram==
'MESONH')
THEN
80 CALL mnhopen_write_cover_tex(ntex)
84 IF (hprogram==
'LFI ')
THEN
90 IF (hprogram==
'ASCII ' .OR. hprogram==
'FA ')
THEN
92 OPEN(ntex,file=
'class_cover_data.tex',form=
'formatted')
95 IF (hprogram==
'AROME ')
THEN
97 CALL aroopen_write_cover_tex(ntex)
101 IF (ntex==0 .AND. lhook) CALL dr_hook(
'WRITE_COVER_TEX_START',1,zhook_handle)
106 WRITE(ntex,*)
'\documentstyle[11pt]{report}'
107 WRITE(ntex,*)
'\setlength{\textwidth}{18.0cm}'
108 WRITE(ntex,*)
'\setlength{\textheight}{24.cm}'
109 WRITE(ntex,*)
'\hoffset=-3.5cm'
110 WRITE(ntex,*)
'\voffset=-3.cm'
111 WRITE(ntex,*)
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
112 WRITE(ntex,*)
'\begin{document}'
113 WRITE(ntex,*)
'{\footnotesize{'
114 IF (lhook) CALL dr_hook(
'WRITE_COVER_TEX_START',1,zhook_handle)
subroutine write_cover_tex_start(HPROGRAM)
subroutine open_write_cover_tex_lfi(KTEX)