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
npoly.f
Go to the documentation of this file.
1 C CVM Class Library
2 C http://cvmlib.com
3 C
4 C Copyright Sergei Nikolaev 1992-2013
5 C Distributed under the Boost Software License, Version 1.0.
6 C (See accompanying file LICENSE_1_0.txt or copy at
7 C http://www.boost.org/LICENSE_1_0.txt)
8 C
9 C
10 C Working array size calculator
11 C
12 
13  INTEGER FUNCTION npoly (M, N)
14 CDEC$ IF DEFINED (FTN_EXPORTS)
15 CDEC$ ATTRIBUTES DLLEXPORT::NPOLY
16 CDEC$ ENDIF
17  INTEGER m, n
18  INTEGER floor, ceiling
19 
20  npoly = 0
21  IF (m .GT. 0 .AND. n .GT. 1) THEN
22  npoly = (floor(dfloat(n - 1) /
23  1 dfloat(ceiling(dsqrt(dfloat(n - 1)))))
24  2 + 2) * m * m
25  ENDIF
26  RETURN
27  END !FUNCTION NPOLY