[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