1776                          kzyva, kzyvb, kzyvc, isyma, isymb, isymc, cmo, mjwop)  argument
1784     integer :: kzyva, kzyvb, kzyvc  local
1789     real*8, dimension(kzyvb) :: vecb
1806     call gtzymt(1, vecb, kzyvb, isymb, zymb, mjwop)
1884                          wrk, nwrk, kzyva, kzyvb, kzyvc, kzyvd, isyma, isymb,&  argument
1893     integer :: kzyva, kzyvb, kzyvc, kzyvd  local
1898     real*8, dimension(kzyvb) :: vecb
1916     call gtzymt(1, vecb, kzyvb, isymb, zymb, mjwop)
2940                          kzyva, kzyvb, kzyvc, isyma, isymb, isymc, cmo, mjwop)  argument
2941     integer :: kzyva, kzyvb, kzyvc  local
2959                          wrk, nwrk, kzyva, kzyvb, kzyvc, kzyvd, isyma, isymb,&  argument
2961     integer :: kzyva, kzyvb, kzyvc, kzyvd  local