slagcnt.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	slagcnt (iparg, nslag)

Function/Subroutine Documentation

slagcnt()

subroutine slagcnt	(	integer, dimension(nparg,*)	iparg,
		integer	nslag )

Definition at line 28 of file slagcnt.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARG(NPARG,*),NSLAG
C-----------------------------------------------
      INTEGER NG,NEL,ITY,IALEL
C
      nslag=0
      DO 10 ng=1,ngroup
        nel   =iparg(2,ng)
        ity   =iparg(5,ng)
        ialel =iparg(7,ng)+iparg(11,ng)
        IF(ity==1 .AND. ialel==0)nslag=nslag+nel
 10   CONTINUE
C
      RETURN