hids.f

Go to the documentation of this file.

      SUBROUTINE hids(N)
      IMPLICIT NONE
*.==========>
*.
*.           Returns the number of all IDS.
*.           Inspired from hidall.F.
*.           G.Barrand.
*
*KEEP,HCBOOK.
      INTEGER     nwpaw,ixpawc,ihdiv,ixhigz,ixku,        lmain
      REAL                                       fenc   ,      hcv
      common/pawc/nwpaw,ixpawc,ihdiv,ixhigz,ixku,fenc(5),lmain,hcv(9989)
      INTEGER   iq        ,lq
      REAL            q
      dimension iq(2),q(2),lq(8000)
      equivalence(lq(1),lmain),(iq(1),lq(9)),(q(1),iq(1))
      INTEGER       hversn,ihwork,lhbook,lhplot,lgtit,lhwork,
     +lcdir,lsdir,lids,ltab,lcid,lcont,lscat,lprox,lproy,lslix,
     +lsliy,lbanx,lbany,lprx,lpry,lfix,llid,lr1,lr2,lname,lchar,lint,
     +lreal,lblok,llblk,lbufm,lbuf,ltmpm,ltmp,ltmp1,lhplip,lhdum,
     +lhfit,lfunc,lhfco,lhfna,lcidn
      common/hcbook/hversn,ihwork,lhbook,lhplot,lgtit,lhwork,
     +lcdir,lsdir,lids,ltab,lcid,lcont,lscat,lprox,lproy,lslix,
     +lsliy,lbanx,lbany,lprx,lpry,lfix,llid,lr1,lr2,lname,lchar,lint,
     +lreal,lblok,llblk,lbufm,lbuf,ltmpm,ltmp,ltmp1,lhplip,lhdum(9),
     +lhfit,lfunc,lhfco,lhfna,lcidn
*
      INTEGER   kncx   ,kxmin  ,kxmax  ,kmin1  ,kmax1 ,knorm  , ktit1,
     +          kncy   ,kymin  ,kymax  ,kmin2  ,kmax2 ,kscal2 , ktit2,
     +          knbit  ,knoent ,kstat1 ,knsdir  ,knrh ,
     +          kcon1  ,kcon2  ,kbits  ,kntot
      parameter(kncx=3,kxmin=4,kxmax=5,kmin1=7,kmax1=8,knorm=9,ktit1=10,
     +          kncy=7,kymin=8,kymax=9,kmin2=6,kmax2=10,kscal2=11,
     +          ktit2=12,knbit=1,knoent=2,kstat1=3,knsdir=5,knrh=6,
     +          kcon1=9,kcon2=3,kbits=1,kntot=2)
*
*KEND.
*
      INTEGER n
*
      n = iq(lcdir+knrh)
      RETURN
      END