H A D | s_contract_shg.F | 67 INTEGER :: ids, ipgfa, jpgfb, ndev local 130 INTEGER :: i, ids, il, ipgfa, j, jpgfb, kpgfb, & local 362 INTEGER :: i, ids, il, ipgfa, j, jpgfb, n, ndev, & local 608 INTEGER :: ids, ipgfa, jpgfb, n, ndev, nmax local 670 INTEGER :: ids, ipgfa, jpgfb, n, ndev, nmax local 734 INTEGER :: ids, ipgfa, jpgfb, n, ndev, nmax local 799 INTEGER :: ids, ipgfa, j, jpgfb, n, ndev, nmax local 870 INTEGER :: ids, ipgfa, jpgfb, n, ndev, nmax local 938 INTEGER :: ids, ids_start, ipgfa, ishella, jpgfb, & local 1100 ishella, jpgfb, jshellb, kpgfb, & local
|