BROWSER/doc_surf81/uncompact_8h_source.html

 INTERFACE
 SUBROUTINE UNCOMPACT(PVALCO_COMPACT,KNELEM,KBITEXPONENT,KBITRADICAL,KPACK)

 USE PARKIND1 , ONLY : JPRB
 USE YOMHOOK  , ONLY : LHOOK, DR_HOOK

 IMPLICIT NONE

 INTEGER(KIND=4) :: KNELEM
 REAL(KIND=8) :: PVALCO_COMPACT(KNELEM)
 REAL(KIND=8) :: ZCOEF,VALMIN,VALMAX
 INTEGER(KIND=4) :: KBITEXPONENT,KBITRADICAL
 INTEGER(KIND=8) :: KPACK(KNELEM)
 END SUBROUTINE UNCOMPACT
 END INTERFACE
ONLY
INTERFACE SUBROUTINE ONLY
Definition: uncompact.h:5

YOMHOOK

INTEGER
INTERFACE SUBROUTINE JPRB IMPLICIT NONE INTEGER(KIND=JPIM)

PARKIND1
INTERFACE SUBROUTINE SUCST_IFSAUX USE PARKIND1
Definition: sucst_ifsaux.h:4

UNCOMPACT
INTERFACE SUBROUTINE UNCOMPACT(PVALCO_COMPACT, KNELEM, KBITEXPONENT, KBITRADICAL, KPACK) USE PARKIND1

REAL
INTERFACE SUBROUTINE FACILO_MT PUNDF USE OPTIONAL ::LDUNDF ! OUT REAL(KIND=JPDBLR)