use basout in fortran program

[ycollet at freesurf.fr]

Hello,

I have a question about using basout in fortran program

In a code, I replaced all the write(6,...) by

write(bufstr,751)niter
call basout(io ,lp ,bufstr(1:lnblnk(bufstr)))

Do I need to add something else in the program like external ... or
include ... for the compilation ?

Because, now, it compiles fine, but once I started the program, everything
hangs. Before these changes, everything works fine.

YC