2
0
mirror of https://github.com/LCPQ/DEHam synced 2024-06-16 02:05:29 +02:00
DEHam/src/nnk.irp.f
2016-12-19 23:34:17 +01:00

10 lines
159 B
Fortran

BEGIN_PROVIDER [integer, nnk]
implicit none
BEGIN_DOC
! provides nnk = total number of non zero elements in H
END_DOC
nnk=0
END_PROVIDER