enddo
enddo
else
+ itmp=0
#if (defined(AIX) && !defined(JUBL))
call xdrf3dfcoord_(ixdrf, csingle, itmp, prec, iret)
if (iret.eq.0) goto 101
#endif
C#undef DEBUG
enddo
- write (iout,*) "just before leave"
+c write (iout,*) "just before leave"
call flush(iout)
return
end