Module ijknow provides the (I,J) index and Part number for the current cell being processed. Applicable to type 3 and type 5 subroutines.

      MODULE ijknow
      USE kindef
      IMPLICIT NONE

      SAVE

      INTEGER (INT4) :: INOW,JNOW,KNOW,LYNOW,MNOW

      END MODULE ijknow