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 26 IMPLICIT NONE 27 28 ! Error index 29 INTEGER IER 30 31 ! Return on error as the file is empty. 32 IER = 1 33 34 RETURN 35 END SUBROUTINE RRATES 36