1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: TRANSFER(B_m, Var, M, IER) C 4 ! Purpose: Transfer the result of linear equation solver to variable C 5 ! array. C 6 ! C 7 ! C 8 ! Author: M. Syamlal Date: 28-MAY-96 C 9 ! Reviewer: Date: C 10 ! C 11 ! C 12 ! Literature/Document References: C 13 ! C 14 ! Variables referenced: C 15 ! Variables modified: C 16 ! C 17 ! Local variables: C 18 ! C 19 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 20 ! 21 SUBROUTINE TRANSFER(B_M, VAR, M) 22 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 23 !...Switches: -xf 24 ! 25 !----------------------------------------------- 26 ! M o d u l e s 27 !----------------------------------------------- 28 USE param 29 USE param1 30 USE geometry 31 USE indices 32 IMPLICIT NONE 33 !----------------------------------------------- 34 ! G l o b a l P a r a m e t e r s 35 !----------------------------------------------- 36 !----------------------------------------------- 37 ! D u m m y A r g u m e n t s 38 !----------------------------------------------- 39 ! phase index 40 INTEGER M 41 ! 42 ! index 43 INTEGER IJK 44 ! 45 ! Vector b_m 46 DOUBLE PRECISION B_m(DIMENSION_3, 0:DIMENSION_M) 47 ! 48 ! Variable 49 DOUBLE PRECISION Var(DIMENSION_3) 50 ! 51 !----------------------------------------------- 52 ! 53 IJK = 1 54 IF (IJKMAX2 > 0) THEN 55 VAR(:IJKMAX2) = B_M(:IJKMAX2,M) 56 IJK = IJKMAX2 + 1 57 ENDIF 58 RETURN 59 END SUBROUTINE TRANSFER 60