The ABINIT Users Mailing List ( CLOSED )

[verstraete@pcpm.ucl.ac.be]

> Hi.
Hi

>  How to print to a file from a routine that we are developing? I tryed:
>      subroutine myroutine(...)
>      use defs_...
>      write (ab_out, *) xxxxx
The usual method for writing to ab_out is to write to a buffer (almost 
always called message) then write the buffer:

     character(len=500) :: message
...
      write (message,'(4a)') ch10,&
    &  ' acfd_dyson: ERROR - ',ch10,&
    &  '  acfd_dyson does not work yet for nspden > 2.'
      call wrtout(ab_out,message,'COLL')

make sure you have the right ab_out unit number, though.

> and
>      write (6, *) xxxxx
This should always write to the log; I use write (*,*) because 6 may have 
been re-directed or associated to some other file.


> but nothing is printed in ab_out (output file) nor in "log" file.
strange

> Compaq Fortran Compiler. From "programmer_guide" I thought to use "prtvol"
> but I don't know if is case.
No. prtvol limits on what is/isn't printed are explicitly coded.

Matthieu

--
===================================================================
Matthieu Verstraete               mailto:verstraete@pcpm.ucl.ac.be 
PCPM, Boltzmann, pl. Croix du Sud, 1            tel: 010/ 47 33 59
B-1348 Louvain-la-Neuve  Belgium                fax: 010/ 47 34 52