& sigmaRbarfile,
ilsigmaR = ilnblnk( sigmaRbarfile )
& sigmaRbarfile(1:ilsigmaR),'.',optimcycle
character*(MAX_LEN_FNAM) sigmaRbarfile
ilt=ilnblnk( sigmaRbarfile )
& sigmaRbarfile(1:ilt), '.', optimcycle
& yadprefix, sigmaRbarfile(1:ilt), '.', optimcycle