Lines Matching defs:specase_2

2001       subroutine specase_2(bl,first,nbls,nbls1, index,  subroutine
2006       logical first
2007       common /types/iityp,jjtyp,kktyp,lltyp, ityp,jtyp,ktyp,ltyp
2008       common /rys/ xrys,rysr(10),rysw(10),t,f0,f1,f2,f3,f4,f5,nroots
2009       common/obarai/
2010      * lni,lnj,lnk,lnl,lnij,lnkl,lnijkl,mmax,
2011      * nqi,nqj,nqk,nql,nsij,nskl,
2012      * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg
2056   100 continue
2063  2031     continue
2076  101    continue
2082  102    continue
2088  103    continue
2094  104    continue
2103  1051       continue
2109  1052       continue
2115  1053       continue
2121  1054       continue
2125   105      continue
2133 106     continue
2135   203 continue
2141   204    continue
2148   205    continue