out_array.f

Go to the documentation of this file.

!
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: OUT_ARRAY (ARRAY, MESSAGE)                             C
!  Purpose: print out a 3D array to standard output                    C
!                                                                      C
!  Author: P.Nicoletti                                Date: 02-DEC-91  C
!  Reviewer: W. Rogers, M. Syamlal, S. Venkatesan     Date: 31-JAN-92  C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: KMAX2                                         C
!  Variables modified: None                                            C
!                                                                      C
!  Local variables: IJK, K                                        C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE out_array(ARRAY, MESSAGE)
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
!
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE param
      USE param1
      USE geometry
      USE fldvar
      USE physprop
      USE indices
      USE funits
      USE compar
      USE functions
      USE in_binary_512
      IMPLICIT NONE
!-----------------------------------------------
!   G l o b a l   P a r a m e t e r s
!-----------------------------------------------
!-----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
!
!                       array to print out
      DOUBLE PRECISION  ARRAY(*)
!
!                       message to print out
      CHARACTER(LEN=*) :: MESSAGE
!
! local variables
!
!                       pointer into array (points to start of a k-plane)
      INTEGER           IJK
!
!                       loop counter
      INTEGER           K

      double precision,  allocatable :: array1(:)
!
!-----------------------------------------------
!
!//d      call lock_tmp_array

      allocate (array1(ijkmax2))

      call convert_to_io_dp(array,array1,ijkmax2)

!!/SP
    IF(cyclic_z) then
      DO k = 2, kmax1
         ijk = funijk_io(1,1,k)
         WRITE (unit_out, 1100) message, k
         CALL out_array_k (array1(ijk))
      END DO
    ELSE
      DO k = 1, kmax2
         ijk = funijk_io(1,1,k)
         WRITE (unit_out, 1100) message, k
         CALL out_array_k (array1(ijk))
      END DO
    ENDIF
 1100 FORMAT(/,1x,a,' at K = ',i4,/)


      deallocate (array1)

!//d      call unlock_tmp_array
!
      RETURN
      END SUBROUTINE out_array

!// Comments on the modifications for DMP version implementation
!// 001 Include header file and common declarations for parallelization
!// 020 New local variables for parallelization, array1(ijkmax2)