58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
65 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
66 CHARACTER(LEN=*),
INTENT(IN) :: hfile
67 CHARACTER(LEN=*),
INTENT(IN) :: hform
68 INTEGER,
INTENT(IN) :: knmc
69 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pconn
70 INTEGER,
DIMENSION(:),
INTENT(OUT) :: kline
78 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'READ_CONNEX_FILE',0,zhook_handle)
86 CALL
open_file(hprogram,nunit,hfile,hform,haction=
'READ')
88 WRITE(iluout,*)
'Open ',hfile,
'debut'
96 READ(nunit,*,end=120) pconn(jj,:)
97 iindex = int(pconn(jj,1))
104 IF (lhook) CALL dr_hook(
'READ_CONNEX_FILE',1,zhook_handle)
subroutine close_file(HPROGRAM, KUNIT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_connex_file(HPROGRAM, HFILE, HFORM, KNMC, PCONN, KLINE)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)