/*
 * math1_gt2dlib.fp
 *
 * T Horinouchi 2004/11/09
 */

#if DCLVER >= 53

/*****************************************************
 * math1/gt2dlib/g2fbli.f:
 ****************************************************/
/*
 *      SUBROUTINE G2FBLI(P,Q, Z00,Z10,Z01,Z11,
 *     &                  Z)
 */
      SUBROUTINE G2FBLI(
          REAL P
          REAL Q
          REAL Z00
          REAL Z10
          REAL Z01
          REAL Z11
          REAL o Z
      )

/*****************************************************
 * math1/gt2dlib/g2fbl2.f:
 ****************************************************/
/*
 *      SUBROUTINE G2FBL2(P,Q,X00,X10,X01,X11,Y00,Y10,Y01,Y11,
 *     &                  X,Y)
 */
      SUBROUTINE G2FBL2(
          REAL P
          REAL Q
          REAL X00
          REAL X10
          REAL X01
          REAL X11
          REAL Y00
          REAL Y10
          REAL Y01
          REAL Y11
          REAL o X
          REAL o Y
      )

/*****************************************************
 * math1/gt2dlib/g2ibl2.f:
 ****************************************************/
/*
 *      SUBROUTINE G2IBL2(X,Y,X00,X10,X01,X11,Y00,Y10,Y01,Y11,
 *     &                  P,Q)
 */
      SUBROUTINE G2IBL2(
          REAL X
          REAL Y
          REAL X00
          REAL X10
          REAL X01
          REAL X11
          REAL Y00
          REAL Y10
          REAL Y01
          REAL Y11
          REAL o P
          REAL o Q
      )

/*****************************************************
 * math1/gt2dlib/g2fctr.g:
 ****************************************************/
/*
 *      SUBROUTINE G2FCTR(UX, UY, CX, CY)
 */
      SUBROUTINE G2FCTR(
          REAL UX
          REAL UY
          REAL o CX
          REAL o CY
      )

/*
 *      ENTRY G2ICTR(CX, CY, UX, UY)
 */
      SUBROUTINE G2ICTR(
          REAL CX
          REAL CY
          REAL o UX
          REAL o UY
      )

/*
 *      ENTRY G2QCTI(LINI)
 */
      SUBROUTINE G2QCTI(
          LOGICAL o LINI
      )

/*
 *      ENTRY G2QCTM(CXMINE, CXMAXE, CYMINE, CYMAXE)
 */
      SUBROUTINE G2QCTM(
          REAL o CXMINE
          REAL o CXMAXE
          REAL o CYMINE
          REAL o CYMAXE
      )

/*
 *      ENTRY G2SCTR(NX, NY, UXA,UYA, CXA,CYA)
 *      REAL UXA(NX), UYA(NY)
 *      REAL CXA(NX,NY), CYA(NX,NY)
 */
      SUBROUTINE G2SCTR(
          INTEGER NX
          INTEGER NY
          REAL (NX) UXA
          REAL (NY) UYA
          REAL (NX,NY) CXA
          REAL (NX,NY) CYA
      )

/*****************************************************
 * math1/gt2dlib/lg2inq.f
 ****************************************************/
/*
 *      LOGICAL FUNCTION LG2INQ(CX,CY,
 *     &                         CX00,CX10,CX01,CX11,CY00,CY10,CY01,CY11)
 */
      LOGICAL FUNCTION LG2INQ(
          REAL CX
          REAL CY
          REAL CX00
          REAL CX10
          REAL CX01
          REAL CX11
          REAL CY00
          REAL CY10
          REAL CY01
          REAL CY11
      )

#endif