      MODULE biotr1_I
      INTERFACE
!...Generated by Pacific-Sierra Research 77to90  4.3E  06:25:32  12/28/06
!...Modified by Charlotte Froese Fischer
!                     Gediminas Gaigalas  10/05/17
      SUBROUTINE biotr1 (PI, QI, NLI, NINSHLI, PF, QF, NLF, NINSHLF, NGRID, MXL&
         , SCR, LSCR, NTESTG, CISHL, CICI, CFSHL, CFCI)
      USE vast_kind_param,ONLY: DOUBLE
      REAL(DOUBLE), DIMENSION(NGRID,*) :: PI
      REAL(DOUBLE), DIMENSION(NGRID,*) :: QI
      INTEGER, DIMENSION(MXL), INTENT(IN) :: NLI
      INTEGER, DIMENSION(MXL) :: NINSHLI
      REAL(DOUBLE), DIMENSION(NGRID,*) :: PF
      REAL(DOUBLE), DIMENSION(NGRID,*) :: QF
      INTEGER, DIMENSION(MXL), INTENT(IN) :: NLF
      INTEGER, DIMENSION(MXL) :: NINSHLF
      INTEGER, INTENT(IN) :: NGRID
      INTEGER, INTENT(IN) :: MXL
      REAL(DOUBLE), DIMENSION(*), INTENT(INOUT) :: SCR
      INTEGER, INTENT(IN) :: LSCR
      INTEGER, INTENT(IN) :: NTESTG
      REAL(DOUBLE), DIMENSION(*) :: CISHL
      REAL(DOUBLE), DIMENSION(*) :: CICI
      REAL(DOUBLE), DIMENSION(*) :: CFSHL
      REAL(DOUBLE), DIMENSION(*) :: CFCI
      END SUBROUTINE
      END INTERFACE
      END MODULE
