12 USE yomhook
,ONLY : lhook, dr_hook
13 USE parkind1
,ONLY : jprb
19 FUNCTION nb (PX,KMAX) RESULT (KNB)
23 REAL,
INTENT(IN) :: px
24 INTEGER,
INTENT(IN),
OPTIONAL :: kmax
31 REAL(KIND=JPRB) :: zhook_handle
33 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:NB',0,zhook_handle)
35 IF (present(kmax)) imax=kmax
41 IF ( int(px/10**jk+1.e-7)/=0 ) iint=iint+1
45 ix=int(px*10**imax+1.e-7)
57 IF ( ix == nint(ix/float(10**jk))*10**jk )
THEN
62 knb=max(iint,1)+idec+1
64 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:NB',1,zhook_handle)
70 FUNCTION nbt (PX,KMAX) RESULT (KNBT)
74 REAL,
INTENT(IN) :: px
75 INTEGER,
INTENT(IN),
OPTIONAL :: kmax
82 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:NBT',0,zhook_handle)
86 IF (present(kmax)) imax=kmax
91 IF ( int(px/10.**jk+1.e-7)/=0 ) iint=iint+1
95 ix=int(px*10**imax+1.e-7)
107 IF ( ix == nint(ix/float(10**jk))*10**jk )
THEN
112 knbt=max(iint+idec+1,2)
114 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:NBT',1,zhook_handle)
120 FUNCTION dec (PX,KMAX) RESULT (KDEC)
124 REAL,
INTENT(IN) :: px
125 INTEGER,
INTENT(IN),
OPTIONAL :: kmax
131 REAL(KIND=JPRB) :: zhook_handle
133 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:DEC',0,zhook_handle)
135 IF (present(kmax)) imax=kmax
139 ix=int(px*10**imax+1.e-7)
151 IF ( ix == nint(ix/float(10**jk))*10**jk )
THEN
155 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:DEC',1,zhook_handle)
164 INTEGER,
INTENT(IN) :: ktex
165 LOGICAL,
INTENT(INOUT) :: gline
166 INTEGER,
INTENT(IN) :: i
167 REAL(KIND=JPRB) :: zhook_handle
169 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:HLINE',0,zhook_handle)
170 IF ((i==3 .OR. i== 7 .OR. i== 9 .OR. i==15 .OR. i== 23 .OR. i== 24 &
171 .OR. i== 28 .OR. i== 33 .OR. i==47 .OR. i== 66 .OR. i== 79 &
172 .OR. i== 87 .OR. i==104 .OR. i==122 .OR. i==123 .OR. i==125 &
173 .OR. i==161 .OR. i==173 .OR. i==176 .OR. i==181 .OR. i==186 &
174 .OR. i==191 .OR. i==197 .OR. i==198 .OR. i==207 .OR. i==214 &
175 .OR. i==219 .OR. i==225 .OR. i==229 .OR. i==232 .OR. i==235 &
176 .OR. i==241 .OR. i==243 )&
178 WRITE(ktex,*)
'\hline'
181 IF (lhook) CALL dr_hook(
'MODE_WRITE_COVER_TEX:HLINE',1,zhook_handle)
integer function nbt(PX, KMAX)
integer function dec(PX, KMAX)
integer function nb(PX, KMAX)
subroutine hline(KTEX, GLINE, I)