[Pw_forum] 4.3b at sp.sp6.cineca.it
balducci at univ.trieste.it
balducci at univ.trieste.it
Wed Mar 30 09:49:50 CEST 2011
Hello,
here is another one which makes the fortran compiler at cineca's sp6
scream:
*** ./espresso-4.3b/upftools/casino_pp.f90.ORIG Wed Mar 30 08:34:41 2011
--- ./espresso-4.3b/upftools/casino_pp.f90 Wed Mar 30 08:34:41 2011
***************
*** 137,149 ****
pptr => phead
ALLOCATE( pptr%channel(mesh_) )
! READ(iunps, '("r*potential (L=",I1,") in Ry")'), l
pptr%lquant=l
READ(iunps, *) (pptr%channel(ir),ir=1,mesh_)
DO
! READ(iunps, '("r*potential (L=",I1,") in Ry")', IOSTAT=ios), l
IF (ios /= 0 ) THEN
EXIT
--- 137,149 ----
pptr => phead
ALLOCATE( pptr%channel(mesh_) )
! READ(iunps, '("r*potential (L=",I1,") in Ry")') l
pptr%lquant=l
READ(iunps, *) (pptr%channel(ir),ir=1,mesh_)
DO
! READ(iunps, '("r*potential (L=",I1,") in Ry")', IOSTAT=ios) l
IF (ios /= 0 ) THEN
EXIT
I am using this compiler on sp.sp6.cineca.it:
IBM XL Fortran for AIX, V13.1 (5724-X15)
Version: 13.01.0000.0004
ciao
gabriele
--
Gabriele Balducci - Dipartimento di Scienze Chimiche - Via L. Giorgieri 1
I-34127 TRIESTE tel: I-040-5583957 fax: I-040-5583903 e-mail: balducci at units.it
Please, if possible, don't send me MS Word or PowerPoint attachments
Why? See: http://www.gnu.org/philosophy/no-word-attachments.html
More information about the users
mailing list