1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: OUT_ARRAY_C (ARRAY,MESSAGE) C 4 ! Purpose: print out a 3D array to standard output (character) C 5 ! C 6 ! Author: P.Nicoletti Date: 10-JAN-92 C 7 ! Reviewer: W. Rogers, M. Syamlal, S. Venkatesan Date: 31-JAN-92 C 8 ! C 9 ! Revision Number: C 10 ! Purpose: C 11 ! Author: Date: dd-mmm-yy C 12 ! Reviewer: Date: dd-mmm-yy C 13 ! C 14 ! Literature/Document References: C 15 ! C 16 ! Variables referenced: KMAX2 C 17 ! Variables modified: K C 18 ! C 19 ! Local variables: IJK C 20 ! C 21 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 22 ! 23 SUBROUTINE OUT_ARRAY_C(ARRAY, MESSAGE) 24 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 25 !...Switches: -xf 26 ! 27 !----------------------------------------------- 28 ! M o d u l e s 29 !----------------------------------------------- 30 USE param 31 USE param1 32 USE geometry 33 USE fldvar 34 USE physprop 35 USE indices 36 USE funits 37 USE compar 38 USE functions 39 USE in_binary_512i 40 IMPLICIT NONE 41 !----------------------------------------------- 42 ! G l o b a l P a r a m e t e r s 43 !----------------------------------------------- 44 !----------------------------------------------- 45 ! D u m m y A r g u m e n t s 46 !----------------------------------------------- 47 ! 48 ! array to print out 49 CHARACTER(LEN=4) :: ARRAY(*) 50 ! 51 ! message to print out 52 CHARACTER(LEN=*) :: MESSAGE 53 ! 54 ! local variables 55 ! 56 ! pointer into array (points to start of a k-plane) 57 INTEGER IJK 58 ! 59 ! K 60 INTEGER K 61 62 character(LEN=4), allocatable :: array1c(:) 63 64 !----------------------------------------------- 65 ! 66 !//d call lock_tmp_array 67 68 allocate (array1c(ijkmax2)) 69 call convert_to_io_c(array,array1c,ijkmax2) 70 ! 71 DO K = 1, KMAX2 72 IJK = FUNIJK_IO(1,1,K) 73 ! 74 WRITE (UNIT_OUT, 1100) MESSAGE, K 75 CALL OUT_ARRAY_KC (ARRAY1C(IJK), K) 76 END DO 77 1100 FORMAT(/,1X,A,' at K = ',I4,/) 78 ! 79 !//d call unlock_tmp_array 80 deallocate (array1c) 81 82 RETURN 83 END SUBROUTINE OUT_ARRAY_C 84 85 !// Comments on the modifications for DMP version implementation 86 !// 001 Include header file and common declarations for parallelization 87 !// 020 New local variables for parallelization, array1c(ijkmax2) 88