CVM Class Library: ftn/npoly.f Source File

CVM Class Library 8.1

This C++ class library encapsulates concepts of vector and different matrices including square, band, symmetric and hermitian ones in Euclidean space of real and complex numbers.

All Classes Files Functions Variables Typedefs Friends Macros Pages

Go to the documentation of this file.

 C                  CVM Class Library
 C                  http://cvmlib.com
 C
 C          Copyright Sergei Nikolaev 1992-2013
 C Distributed under the Boost Software License, Version 1.0.
 C    (See accompanying file LICENSE_1_0.txt or copy at
 C          http://www.boost.org/LICENSE_1_0.txt)
 C
 C
 C     Working array size calculator
 C
 
       INTEGER FUNCTION npoly (M, N)
 CDEC$ IF DEFINED (FTN_EXPORTS)
 CDEC$     ATTRIBUTES DLLEXPORT::NPOLY
 CDEC$ ENDIF
       INTEGER m, n
       INTEGER floor, ceiling
 
       npoly = 0
       IF (m .GT. 0 .AND. n .GT. 1) THEN
           npoly  = (floor(dfloat(n - 1) /
      1              dfloat(ceiling(dsqrt(dfloat(n - 1)))))
      2                                               + 2) * m * m
       ENDIF
       RETURN
       END !FUNCTION NPOLY