dr_hook_prt.F90

Go to the documentation of this file.

SUBROUTINE dr_hook_prt(KUNIT, CDSTR)
USE parkind1  ,ONLY : jpim
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KUNIT
CHARACTER(LEN=*), INTENT(IN) :: CDSTR
IF (kunit < 0) THEN
  WRITE(*,'(A)') cdstr
ELSE
  WRITE(kunit,'(A)') cdstr
  CALL flush(kunit)
ENDIF
END SUBROUTINE dr_hook_prt

SUBROUTINE dr_hook_prt_char(KUNIT, CD, KLD)
USE parkind1  ,ONLY : jpim
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KUNIT
INTEGER(KIND=JPIM), INTENT(IN) :: KLD
CHARACTER(LEN=1), INTENT(IN) :: CD(kld)
IF (kunit < 0) THEN
  WRITE(*,'(40A1)') cd
ELSE
  WRITE(*,'(40A1)') cd
  CALL flush(kunit)
ENDIF
END SUBROUTINE dr_hook_prt_char

SUBROUTINE dr_hook_prt_logical(KUNIT, LD, KLD)
USE parkind1  ,ONLY : jpim
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KUNIT
INTEGER(KIND=JPIM), INTENT(IN) :: KLD
LOGICAL, INTENT(IN) :: LD(kld)
IF (kunit < 0) THEN
  WRITE(*,'(40L2)') ld
ELSE
  WRITE(kunit,'(40L2)') ld
  CALL flush(kunit)
ENDIF
END SUBROUTINE dr_hook_prt_logical

SUBROUTINE dr_hook_prt_i4(KUNIT, KD, KLD)
USE parkind1  ,ONLY : jpim
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KUNIT
INTEGER(KIND=JPIM), INTENT(IN) :: KLD
INTEGER(KIND=JPIM), INTENT(IN) :: KD(kld)
IF (kunit < 0) THEN
  WRITE(*,'(5I12)') kd
ELSE
  WRITE(kunit,'(5I12)') kd
  CALL flush(kunit)
ENDIF
END SUBROUTINE dr_hook_prt_i4

SUBROUTINE dr_hook_prt_i8(KUNIT, KD, KLD)
USE parkind1  ,ONLY : jpim, jpib
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KUNIT
INTEGER(KIND=JPIM), INTENT(IN) :: KLD
INTEGER(KIND=JPIB), INTENT(IN) :: KD(kld)
IF (kunit < 0) THEN
  WRITE(*,'(5I20)') kd
ELSE
  WRITE(kunit,'(5I20)') kd
  CALL flush(kunit)
ENDIF
END SUBROUTINE dr_hook_prt_i8

SUBROUTINE dr_hook_prt_r4(KUNIT, PD, KLD)
USE parkind1  ,ONLY : jpim, jpib, jprm
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KUNIT
INTEGER(KIND=JPIM), INTENT(IN) :: KLD
REAL(KIND=JPRM), INTENT(IN) :: PD(kld)
IF (kunit < 0) THEN
  WRITE(*,*) pd
ELSE
  WRITE(kunit,*) pd
  CALL flush(kunit)
ENDIF
END SUBROUTINE dr_hook_prt_r4

SUBROUTINE dr_hook_prt_r8(KUNIT, PD, KLD)
USE parkind1  ,ONLY : jpim, jpib, jprb
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KUNIT
INTEGER(KIND=JPIM), INTENT(IN) :: KLD
REAL(KIND=JPRB), INTENT(IN) :: PD(kld)
IF (kunit < 0) THEN
  WRITE(*,*) pd
ELSE
  WRITE(kunit,*) pd
  CALL flush(kunit)
ENDIF
END SUBROUTINE dr_hook_prt_r8