1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: RRATES(IER) C 4 ! Purpose: Calculate reaction rates for various reactions in cell ijk C 5 ! C 6 ! Author: Date: C 7 ! Reviewer: Date: C 8 ! C 9 ! Revision Number: ? C 10 ! Purpose: Removed template with new reaction implementation. C 11 ! Author: J.Musser Date: 10-Oct-12 C 12 ! Reviewer: Date: dd-mmm-yy C 13 ! C 14 ! Literature/Document References: C 15 ! C 16 ! Local variables: C 17 ! C 18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 19 SUBROUTINE RRATES(IER) 20 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 21 !...Switches: -xf 22 !----------------------------------------------- 23 ! M o d u l e s 24 !----------------------------------------------- 25 USE param 26 USE param1 27 USE parallel 28 USE fldvar 29 USE rxns 30 USE energy 31 USE geometry 32 USE run 33 USE indices 34 USE physprop 35 USE constant 36 USE funits 37 USE compar !//d 38 USE sendrecv !// 400 39 40 IMPLICIT NONE 41 42 ! Error index 43 INTEGER IER 44 45 ! Return on error as the file is empty. 46 IER = 1 47 48 RETURN 49 END SUBROUTINE RRATES 50