mask_side=1
crc n_fun=n_fun+1
ct write (iout,*) 'sc_local time= ',MPI_WTIME()-wtime
+ call chainbuild_extconf
return
end
external funcgrad_restr1
external optsave
#else
- external func,gradient,fdum
+ external fdum
external func_restr1,grad_restr1
logical not_done,change,reduce
dimension iv(liv)