scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

last end subroutine --> end subroutine name [Gerardo] 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1874 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
ballabio 2005-05-18 14:02:51 +00:00
parent 74467026df
commit d214f05b60
27 changed files with 230 additions and 225 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Modules/fft_scalar.f90
View File

@ -595,8 +595,8 @@
CALL f_hpmstop( 40 + ABS(sgn) )
#endif
return
end subroutine cft_2xy
RETURN
END SUBROUTINE cft_2xy
!
@ -761,7 +761,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE cfft3d
!
!=----------------------------------------------------------------------=!
@ -785,7 +785,7 @@
!
!----------------------------------------------------------------------
subroutine cfft3ds (f, nr1, nr2, nr3, nrx1, nrx2, nrx3, sign, do_fft_x, do_fft_y)
SUBROUTINE cfft3ds (f, nr1, nr2, nr3, nrx1, nrx2, nrx3, sign, do_fft_x, do_fft_y)
!
! driver routine for 3d complex "reduced" fft
! sign > 0 : f(G) => f(R) ; sign < 0 : f(R) => f(G)
@ -1030,7 +1030,7 @@ subroutine cfft3ds (f, nr1, nr2, nr3, nrx1, nrx2, nrx3, sign, do_fft_x, do_fft_y
END IF
RETURN
END SUBROUTINE
END SUBROUTINE cfft3ds
!
!=----------------------------------------------------------------------=!
@ -1226,7 +1226,7 @@ subroutine cfft3ds (f, nr1, nr2, nr3, nrx1, nrx2, nrx3, sign, do_fft_x, do_fft_y
#endif
RETURN
END SUBROUTINE
END SUBROUTINE cft_b
!
!=----------------------------------------------------------------------=!

10
Modules/fft_types.f90
View File

@ -73,7 +73,7 @@ CONTAINS
desc%iplp = 0
desc%iplw = 0
desc%id = 0
END SUBROUTINE
END SUBROUTINE fft_dlay_allocate
SUBROUTINE fft_dlay_deallocate( desc )
TYPE (fft_dlay_descriptor) :: desc
@ -89,7 +89,7 @@ CONTAINS
IF ( ASSOCIATED( desc%iplp ) ) DEALLOCATE( desc%iplp )
IF ( ASSOCIATED( desc%iplw ) ) DEALLOCATE( desc%iplw )
desc%id = 0
END SUBROUTINE
END SUBROUTINE fft_dlay_deallocate
!=----------------------------------------------------------------------------=!
@ -318,7 +318,7 @@ CONTAINS
desc%tptr = icount
RETURN
END SUBROUTINE
END SUBROUTINE fft_dlay_set
!=----------------------------------------------------------------------------=!
@ -367,8 +367,8 @@ CONTAINS
desc%npp = nr3
desc%ipp = 0
return
end subroutine fft_dlay_scalar
RETURN
END SUBROUTINE fft_dlay_scalar
END MODULE fft_types

110
Modules/io_base.f90
View File

@ -284,7 +284,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_header1
SUBROUTINE write_restart_header2(iuni)
@ -303,7 +303,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_header2
!=----------------------------------------------------------------------------=!
@ -488,7 +488,7 @@
tmp_dir = tmp_dir_
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_header1
!=----------------------------------------------------------------------------=!
!
@ -523,7 +523,7 @@
WRITE( stdout, fmt = " (3X,'W: read_restart_header, header not read from restart ' ) " )
!
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_header2
!=----------------------------------------------------------------------------=!
@ -553,7 +553,7 @@
END IF
!
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_xdim1
!=----------------------------------------------------------------------------=!
!
@ -579,7 +579,7 @@
END IF
!
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_xdim2
!=----------------------------------------------------------------------------=!
!
@ -627,7 +627,7 @@
CALL mp_bcast( nrxxs, ionode_id )
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_xdim1
!=----------------------------------------------------------------------------=!
!
@ -658,7 +658,7 @@
WRITE( stdout,fmt="(3X,'W: read_restart_xdim, xdim not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_xdim2
!=----------------------------------------------------------------------------=!
@ -701,7 +701,7 @@
ENDIF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_ldau1
!=----------------------------------------------------------------------------=!
!
@ -727,7 +727,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_ldau2
!=----------------------------------------------------------------------------=!
!
@ -787,7 +787,7 @@
CALL mp_bcast(Hubbard_alpha, ionode_id)
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_ldau1
!=----------------------------------------------------------------------------=!
!
@ -820,7 +820,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_ldaU, Data Section not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_ldau2
!=----------------------------------------------------------------------------=!
!
@ -873,7 +873,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_symmetry1
!=----------------------------------------------------------------------------=!
!
@ -896,7 +896,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_symmetry2
!=----------------------------------------------------------------------------=!
@ -969,7 +969,7 @@
CALL mp_bcast( irt, ionode_id )
!
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_symmetry1
!=----------------------------------------------------------------------------=!
!
@ -995,7 +995,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_symmetry, symmetries not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_symmetry2
!=----------------------------------------------------------------------------=!
@ -1107,7 +1107,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_pseudo1
!=----------------------------------------------------------------------------=!
!
@ -1239,7 +1239,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_pseudo3
!=----------------------------------------------------------------------------=!
!
@ -1264,7 +1264,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_pseudo2
!=----------------------------------------------------------------------------=!
!
@ -1454,7 +1454,7 @@
CALL mp_bcast( iver, ionode_id )
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_pseudo1
!=----------------------------------------------------------------------------=!
!
@ -1646,7 +1646,7 @@
CALL mp_bcast( rho_at(1:mesh), ionode_id )
!
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_pseudo3
!=----------------------------------------------------------------------------=!
!
@ -1680,7 +1680,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_pseudo, pseudo not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_pseudo2
!=----------------------------------------------------------------------------=!
@ -1740,7 +1740,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_gvec1
!=----------------------------------------------------------------------------=!
!
@ -1767,7 +1767,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_gvec2
!=----------------------------------------------------------------------------=!
@ -1846,7 +1846,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_gvec1
!=----------------------------------------------------------------------------=!
!
@ -1879,7 +1879,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_gvec, data not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_gvec2
!=----------------------------------------------------------------------------=!
!
@ -1921,7 +1921,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_gkvec1
!=----------------------------------------------------------------------------=!
!
@ -1943,7 +1943,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_gkvec2
!=----------------------------------------------------------------------------=!
!
@ -2001,7 +2001,7 @@
! .. CALL mp_bcast( igk_, ionode_id )
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_gkvec1
!=----------------------------------------------------------------------------=!
!
@ -2036,7 +2036,7 @@
WRITE( stdout,fmt="(3X,'W: read_restart_gkvec, xdim not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_gkvec2
!=----------------------------------------------------------------------------=!
@ -2088,7 +2088,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_cell1
!=----------------------------------------------------------------------------=!
!
@ -2112,7 +2112,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_cell2
!=----------------------------------------------------------------------------=!
!
@ -2172,7 +2172,7 @@
CALL mp_bcast( xnosm2, ionode_id )
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_cell1
!=----------------------------------------------------------------------------=!
!
@ -2202,7 +2202,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_cell, xdim not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_cell2
@ -2297,7 +2297,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_ions1
!=----------------------------------------------------------------------------=!
!
@ -2329,7 +2329,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_ions2
!=----------------------------------------------------------------------------=!
!
@ -2453,7 +2453,7 @@
CALL mp_bcast(xnosm2, ionode_id)
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_ions1
!=----------------------------------------------------------------------------=!
!
@ -2491,7 +2491,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_ions, Data Section not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_ions2
!=----------------------------------------------------------------------------=!
@ -2607,7 +2607,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_electrons1
!=----------------------------------------------------------------------------=!
!
@ -2640,7 +2640,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_electrons2
!=----------------------------------------------------------------------------=!
@ -2808,7 +2808,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_electrons1
!=----------------------------------------------------------------------------=!
!
@ -2847,7 +2847,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_electrons, Data Sections not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_electrons2
!=----------------------------------------------------------------------------=!
@ -3015,7 +3015,7 @@
DEALLOCATE( wtmp )
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_wfc1
!=----------------------------------------------------------------------------=!
!
@ -3047,7 +3047,7 @@
END DO
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_wfc2
!=----------------------------------------------------------------------------=!
!
@ -3259,7 +3259,7 @@
tm = tm_
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_wfc1
!=----------------------------------------------------------------------------=!
!
@ -3296,7 +3296,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_wfc, Data Section not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_wfc2
!=----------------------------------------------------------------------------=!
@ -3352,7 +3352,7 @@
DEALLOCATE( vtmp )
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_charge1
!=----------------------------------------------------------------------------=!
!
@ -3379,7 +3379,7 @@
WRITE(iuni) idum
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_charge2
!=----------------------------------------------------------------------------=!
@ -3457,7 +3457,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_charge1
!=----------------------------------------------------------------------------=!
!
@ -3489,7 +3489,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_charge, Data Section not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_charge2
!=----------------------------------------------------------------------------=!
!
@ -3526,7 +3526,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_tetra1
!=----------------------------------------------------------------------------=!
!
@ -3555,7 +3555,7 @@
IF( ionode ) WRITE(iuni) idum
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_tetra2
!=----------------------------------------------------------------------------=!
!
@ -3604,7 +3604,7 @@
END IF
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_tetra1
!=----------------------------------------------------------------------------=!
@ -3633,7 +3633,7 @@
IF( restart_module_verbosity > 1000 ) &
WRITE( stdout,fmt="(3X,'W: read_restart_tetra, Data Section not read from restart ' )")
RETURN
END SUBROUTINE
END SUBROUTINE read_restart_tetra2
!=----------------------------------------------------------------------------=!
!
@ -3669,7 +3669,7 @@
CALL mp_bcast( section_name, ionode_id )
RETURN
END SUBROUTINE
END SUBROUTINE data_section_head
!=----------------------------------------------------------------------------=!
END MODULE io_base

30
Modules/ions_base.f90
View File

@ -106,7 +106,7 @@
END DO
END DO
RETURN
END SUBROUTINE
END SUBROUTINE packtau
!------------------------------------------------------------------------------!
@ -124,7 +124,7 @@
END DO
END DO
RETURN
END SUBROUTINE
END SUBROUTINE unpacktau
!------------------------------------------------------------------------------!
@ -161,7 +161,7 @@
isrt ( na(is) + ina(is) ) = ia
END DO
RETURN
END SUBROUTINE
END SUBROUTINE sort_tau
!------------------------------------------------------------------------------!
@ -177,7 +177,7 @@
tau( :, ia ) = tausrt( :, isa )
END DO
RETURN
END SUBROUTINE
END SUBROUTINE unsort_tau
!------------------------------------------------------------------------------!
@ -362,7 +362,7 @@
tions_base_init = .TRUE.
RETURN
END SUBROUTINE
END SUBROUTINE ions_base_init
!------------------------------------------------------------------------------!
@ -379,7 +379,7 @@
IF( ALLOCATED( taui ) ) DEALLOCATE( taui )
tions_base_init = .FALSE.
RETURN
END SUBROUTINE
END SUBROUTINE deallocate_ions_base
!------------------------------------------------------------------------------!
@ -401,7 +401,7 @@
END DO
END DO
RETURN
END SUBROUTINE
END SUBROUTINE ions_vel3
!------------------------------------------------------------------------------!
@ -419,7 +419,7 @@
END DO
END DO
RETURN
END SUBROUTINE
END SUBROUTINE ions_vel2
!------------------------------------------------------------------------------!
@ -448,7 +448,7 @@
end do
!
RETURN
END SUBROUTINE
END SUBROUTINE cofmass1
!------------------------------------------------------------------------------!
@ -479,7 +479,7 @@
end do
!
RETURN
END SUBROUTINE
END SUBROUTINE cofmass2
!------------------------------------------------------------------------------!
@ -561,7 +561,7 @@
end do
ekinp=0.5d0*ekinp
return
END SUBROUTINE
END SUBROUTINE ions_kinene
!------------------------------------------------------------------------------!
@ -603,7 +603,7 @@
ekinpr = 0.5 * ekinpr
tempp = ekinpr * factem * 2.0d0 / DBLE( ndega )
return
end subroutine
end subroutine ions_temp
!------------------------------------------------------------------------------!
@ -626,7 +626,7 @@
enddo
enddo
return
end subroutine
end subroutine ions_thermal_stress
!------------------------------------------------------------------------------!
@ -690,7 +690,7 @@
end do
end if
return
end subroutine
end subroutine ions_vrescal
!------------------------------------------------------------------------------!
@ -701,7 +701,7 @@
varm = var0
var0 = varp
return
end subroutine
end subroutine ions_shiftvar
!------------------------------------------------------------------------------!

20
Modules/mp.f90
View File

@ -845,7 +845,7 @@
mp_high_watermark = MAX( mp_high_watermark, 4 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_get_i1
!------------------------------------------------------------------------------!
!
@ -893,7 +893,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 4 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_get_iv
!------------------------------------------------------------------------------!
!
@ -941,7 +941,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 8 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_get_rv
!------------------------------------------------------------------------------!
!
@ -989,7 +989,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 8 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_get_rm
!------------------------------------------------------------------------------!
@ -1038,7 +1038,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 16 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_get_cv
!------------------------------------------------------------------------------!
!
!
@ -1087,7 +1087,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 4 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_put_i1
!------------------------------------------------------------------------------!
!
@ -1132,7 +1132,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 4 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_put_iv
!------------------------------------------------------------------------------!
!
@ -1177,7 +1177,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 8 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_put_rv
!------------------------------------------------------------------------------!
!
@ -1222,7 +1222,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 8 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_put_rm
!------------------------------------------------------------------------------!
@ -1268,7 +1268,7 @@
#endif
mp_high_watermark = MAX( mp_high_watermark, 16 * msglen )
RETURN
END SUBROUTINE
END SUBROUTINE mp_put_cv
!
!------------------------------------------------------------------------------!

4
Modules/mp_global.f90
View File

@ -74,7 +74,7 @@ MODULE mp_global
!
RETURN
!
END SUBROUTINE
END SUBROUTINE mp_global_start
!
!-----------------------------------------------------------------------
SUBROUTINE mp_global_group_start( mep, myp, nprocp, num_of_pools )
@ -91,6 +91,6 @@ MODULE mp_global
!
RETURN
!
END SUBROUTINE
END SUBROUTINE mp_global_group_start
!
END MODULE mp_global

14
Modules/mp_wave.f90
View File

@ -123,7 +123,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE mergewf
!=----------------------------------------------------------------------------=!
@ -219,7 +219,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE splitwf
!=----------------------------------------------------------------------------=!
@ -308,7 +308,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE mergerho
SUBROUTINE splitrho(rho, rhot, ngl, ig_l2g, mpime, nproc, root)
@ -388,7 +388,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE splitrho
!=----------------------------------------------------------------------------=!
@ -483,7 +483,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE mergeig
!=----------------------------------------------------------------------------=!
@ -574,7 +574,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE splitig
!=----------------------------------------------------------------------------=!
@ -680,7 +680,7 @@
DEALLOCATE( ibuf )
RETURN
END SUBROUTINE PWSCATTER
END SUBROUTINE pwscatter

17
Modules/parallel_types.f90
View File

@ -176,7 +176,8 @@
ALLOCATE(v%v(locr))
v%desc => desc
RETURN
END SUBROUTINE
END SUBROUTINE allocate_real_vector
SUBROUTINE allocate_real_matrix(m,desc)
TYPE (real_parallel_matrix) :: m
TYPE (descriptor), POINTER :: desc
@ -187,7 +188,8 @@
ALLOCATE(m%m(locr,locc))
m%desc => desc
RETURN
END SUBROUTINE
END SUBROUTINE allocate_real_matrix
SUBROUTINE allocate_real_tensor(t,desc)
TYPE (real_parallel_tensor) :: t
TYPE (descriptor), POINTER :: desc
@ -199,24 +201,27 @@
ALLOCATE(t%t(locr,locc,locp))
t%desc => desc
RETURN
END SUBROUTINE
END SUBROUTINE allocate_real_tensor
SUBROUTINE deallocate_real_vector(v)
TYPE (real_parallel_vector) :: v
DEALLOCATE(v%v)
NULLIFY(v%desc)
RETURN
END SUBROUTINE
END SUBROUTINE deallocate_real_vector
SUBROUTINE deallocate_real_matrix(m)
TYPE (real_parallel_matrix) :: m
DEALLOCATE(m%m)
NULLIFY(m%desc)
RETURN
END SUBROUTINE
END SUBROUTINE deallocate_real_matrix
SUBROUTINE deallocate_real_tensor(t)
TYPE (real_parallel_tensor) :: t
DEALLOCATE(t%t)
NULLIFY(t%desc)
RETURN
END SUBROUTINE
END SUBROUTINE deallocate_real_tensor
END MODULE parallel_types

10
Modules/printout_base.f90
View File

@ -84,7 +84,7 @@ CONTAINS
OPEN( UNIT=iunit, FILE=fort_unit(iunit), STATUS='unknown', POSITION='append')
END DO
RETURN
END SUBROUTINE
END SUBROUTINE printout_base_open
SUBROUTINE printout_base_close( )
INTEGER :: iunit
@ -97,7 +97,7 @@ CONTAINS
END IF
END DO
RETURN
END SUBROUTINE
END SUBROUTINE printout_base_close
SUBROUTINE printout_pos( iunit, nfi, tau, nat, simtime, label )
@ -120,7 +120,7 @@ CONTAINS
255 FORMAT(3X,A3,3E14.6)
252 FORMAT(3E14.6)
RETURN
END SUBROUTINE
END SUBROUTINE printout_pos
SUBROUTINE printout_cell( iunit, nfi, h, simtime )
@ -135,7 +135,7 @@ CONTAINS
30 FORMAT(3X,'STEP:',I7,1X,F10.6)
1000 format(3F14.8)
RETURN
END SUBROUTINE
END SUBROUTINE printout_cell
SUBROUTINE printout_stress( iunit, nfi, str, simtime )
@ -150,6 +150,6 @@ CONTAINS
30 FORMAT(3X,'STEP:',I7,1X,F10.6)
1000 format(3(F18.8,1X))
RETURN
END SUBROUTINE
END SUBROUTINE printout_stress
END MODULE printout_base

4
Modules/pseudo_types.f90
View File

@ -135,7 +135,7 @@
NULLIFY( upf%chi )
NULLIFY( upf%rho_at )
RETURN
END SUBROUTINE
END SUBROUTINE nullify_pseudo_upf
SUBROUTINE deallocate_pseudo_upf( upf )
TYPE( pseudo_upf ), INTENT(INOUT) :: upf
@ -164,7 +164,7 @@
IF( ASSOCIATED( upf%chi ) ) DEALLOCATE( upf%chi )
IF( ASSOCIATED( upf%rho_at ) ) DEALLOCATE( upf%rho_at )
RETURN
END SUBROUTINE
END SUBROUTINE deallocate_pseudo_upf
END MODULE pseudo_types

42
Modules/ptoolkit.f90
View File

@ -48,7 +48,7 @@
!==----------------------------------------------==!
SUBROUTINE MATMULP1(TRANSA, TRANSB, A, B, C, N)
SUBROUTINE matmulp1(transa, transb, a, b, c, n)
!
! Parallel driver for matrix multiplication of square matrixes
@ -216,13 +216,13 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE matmulp1
!=----------------------------------------------------------------------------=!
SUBROUTINE MATMULP( TRANSA, TRANSB, A, B, C, N )
SUBROUTINE matmulp( transa, transb, a, b, c, n )
!
! Parallel driver for matrix multiplication of square matrixes
@ -348,12 +348,12 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE matmulp
!==----------------------------------------------==!
SUBROUTINE CMATMULP(TRANSA,TRANSB,A,B,C,N)
SUBROUTINE cmatmulp(transa,transb,a,b,c,n)
!
! Parallel driver for matrix multiplication of square matrixes
@ -517,7 +517,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE cmatmulp
!==----------------------------------------------==!
@ -540,7 +540,7 @@
! PRENTICE HALL INTERNATIONAL (1992).
!
!
SUBROUTINE PTREDV(A,LDA,D,E,V,LDV,NRL,N,NPROC,ME)
SUBROUTINE ptredv(a,lda,d,e,v,ldv,nrl,n,nproc,me)
!
!
! INPUTS :
@ -936,7 +936,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE ptredv
!==----------------------------------------------==!
@ -1137,7 +1137,7 @@
15 continue
return
END SUBROUTINE
END SUBROUTINE ptqliv
!==----------------------------------------------==!
@ -1191,7 +1191,7 @@
endif
13 continue
return
END SUBROUTINE
END SUBROUTINE peigsrtv
FUNCTION pythag(a,b)
USE kinds
@ -1319,7 +1319,7 @@
DEALLOCATE( e )
RETURN
END SUBROUTINE
END SUBROUTINE diagonalize
!==----------------------------------------------==!
@ -1334,7 +1334,7 @@
CALL ptqliv(w, sd, n, z, ldz, nrl)
CALL peigsrtv(w, z, ldz, n, nrl)
RETURN
END SUBROUTINE
END SUBROUTINE pdspev_drv
!==----------------------------------------------==!
@ -1368,7 +1368,7 @@
DEALLOCATE( work )
RETURN
END SUBROUTINE
END SUBROUTINE dspev_drv
!==----------------------------------------------==!
@ -1520,7 +1520,7 @@
!==----------------------------------------------==!
SUBROUTINE PZHPTRD( N, NRL, AP, LDA, D, E, TAU, NPROC, ME)
SUBROUTINE pzhptrd( n, nrl, ap, lda, d, e, tau, nproc, me)
!
! Parallel MPI version of the LAPACK routine ZHPTRD
!
@ -1984,11 +1984,11 @@
!
! End of ZHPTRD
!
END SUBROUTINE
END SUBROUTINE pzhptrd
!==----------------------------------------------==!
SUBROUTINE PZUPGTR( N, NRL, AP, LDA, TAU, Q, LDQ, NPROC, ME)
SUBROUTINE pzupgtr( n, nrl, ap, lda, tau, q, ldq, nproc, me)
!
! Parallel MPI version of the LAPACK routine ZUPGTR
!
@ -2229,11 +2229,11 @@
!
! End of ZUPGTR
!
END SUBROUTINE
END SUBROUTINE pzupgtr
!==----------------------------------------------==!
SUBROUTINE PZSTEQR( COMPZ, N, NRL, D, E, Z, LDZ, NPROC, ME )
SUBROUTINE pzsteqr( compz, n, nrl, d, e, z, ldz, nproc, me )
!
! Parallel MPI version of the LAPACK routine ZHPTRD
!
@ -2785,7 +2785,7 @@
!
! End of ZSTEQR
!
END SUBROUTINE
END SUBROUTINE pzsteqr
!==----------------------------------------------==!
@ -2822,7 +2822,7 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE zhpev_drv
!==----------------------------------------------==!
@ -2843,7 +2843,7 @@
CALL pzsteqr( jobz, n, nrl, w, rwork, z, ldz, nproc, mpime)
RETURN
END SUBROUTINE
END SUBROUTINE pzhpev_drv
!==----------------------------------------------==!

42
Modules/read_cards.f90
View File

@ -115,7 +115,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_default_values
!
!
!----------------------------------------------------------------------
@ -264,7 +264,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE read_cards
!
!
! ... Description of the allowed input CARDS for FPMD code
@ -344,7 +344,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_atomic_species
!
!
!------------------------------------------------------------------------
@ -787,7 +787,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_kpoints
!
!
!------------------------------------------------------------------------
@ -834,7 +834,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_setnfi
!
!
!------------------------------------------------------------------------
@ -936,7 +936,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_occupations
!
!
!------------------------------------------------------------------------
@ -984,7 +984,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_vhmean
!
!
!------------------------------------------------------------------------
@ -1038,7 +1038,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_optical
!
!
!------------------------------------------------------------------------
@ -1078,7 +1078,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_dipole
!
!
!------------------------------------------------------------------------
@ -1128,7 +1128,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_esr
!
!
!------------------------------------------------------------------------
@ -1179,7 +1179,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_neighbours
!
!
!------------------------------------------------------------------------
@ -1230,7 +1230,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_pstab
!
!
!------------------------------------------------------------------------
@ -1303,7 +1303,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_cell_parameters
!
!
!------------------------------------------------------------------------
@ -1358,7 +1358,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_turbo
!
!
!------------------------------------------------------------------------
@ -1446,7 +1446,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_ion_velocities
!
!
!------------------------------------------------------------------------
@ -1594,7 +1594,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_constraints
!
!
!------------------------------------------------------------------------
@ -1683,7 +1683,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_ksout
!
!
!------------------------------------------------------------------------
@ -1771,7 +1771,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_ksout_empty
!
!
!------------------------------------------------------------------------
@ -1812,7 +1812,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_rhoout
!
!
!------------------------------------------------------------------------
@ -1882,7 +1882,7 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE card_climbing_images
END SUBROUTINE card_climbing_images
!
!
!------------------------------------------------------------------------
@ -1931,6 +1931,6 @@ MODULE read_cards_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE card_template
!
END MODULE read_cards_module

44
Modules/read_namelists.f90
View File

@ -102,7 +102,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE control_defaults
!
!=----------------------------------------------------------------------=!
!
@ -188,7 +188,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE system_defaults
!
!=----------------------------------------------------------------------=!
!
@ -297,7 +297,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE electrons_defaults
!
!=----------------------------------------------------------------------=!
!
@ -413,7 +413,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE ions_defaults
!
!=----------------------------------------------------------------------=!
!
@ -458,7 +458,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE cell_defaults
!
!=----------------------------------------------------------------------=!
!
@ -480,7 +480,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE phonon_defaults
!
!=----------------------------------------------------------------------=!
!
@ -500,7 +500,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE raman_defaults
!
!=----------------------------------------------------------------------=!
!
@ -548,7 +548,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE control_bcast
!
!=----------------------------------------------------------------------=!
!
@ -625,7 +625,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE system_bcast
!
!=----------------------------------------------------------------------=!
!
@ -716,7 +716,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE electrons_bcast
!
!=----------------------------------------------------------------------=!
!
@ -812,7 +812,7 @@ MODULE read_namelists_module
RETURN
!
END SUBROUTINE
END SUBROUTINE ions_bcast
!
!=----------------------------------------------------------------------=!
!
@ -846,7 +846,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE cell_bcast
!
!=----------------------------------------------------------------------------=!
!
@ -869,7 +869,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE phonon_bcast
!
!=----------------------------------------------------------------------------=!
@ -893,7 +893,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE raman_bcast
!
!=----------------------------------------------------------------------=!
!
@ -984,7 +984,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE control_checkin
!
!=----------------------------------------------------------------------=!
!
@ -1117,7 +1117,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE system_checkin
!
!=----------------------------------------------------------------------=!
!
@ -1175,7 +1175,7 @@ MODULE read_namelists_module
!
RETURN
END SUBROUTINE
END SUBROUTINE electrons_checkin
!
!=----------------------------------------------------------------------=!
!
@ -1275,7 +1275,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE ions_checkin
!
!=----------------------------------------------------------------------=!
!
@ -1314,7 +1314,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE cell_checkin
!
!=----------------------------------------------------------------------=!
!
@ -1333,7 +1333,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE phonon_checkin
!
!=----------------------------------------------------------------------=!
!
@ -1352,7 +1352,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE raman_checkin
!
!=----------------------------------------------------------------------=!
@ -1512,7 +1512,7 @@ MODULE read_namelists_module
!
RETURN
!
END SUBROUTINE
END SUBROUTINE fixval
!
!=----------------------------------------------------------------------=!
!

10
Modules/recvec.f90
View File

@ -49,7 +49,7 @@
SUBROUTINE deallocate_gvecw
IF( ALLOCATED( ggp ) ) DEALLOCATE( ggp )
END SUBROUTINE
END SUBROUTINE deallocate_gvecw
!=----------------------------------------------------------------------------=!
END MODULE gvecw
@ -104,7 +104,7 @@
SUBROUTINE deallocate_gvecs()
IF( ALLOCATED( nps ) ) DEALLOCATE( nps )
IF( ALLOCATED( nms ) ) DEALLOCATE( nms )
END SUBROUTINE
END SUBROUTINE deallocate_gvecs
!=----------------------------------------------------------------------------=!
END MODULE gvecs
@ -140,7 +140,7 @@
ecutb = ecut
gcutb = ecut / tpibab / tpibab
RETURN
END SUBROUTINE
END SUBROUTINE gvecb_set
SUBROUTINE deallocate_gvecb()
IF( ALLOCATED( gb ) ) DEALLOCATE( gb )
@ -150,7 +150,7 @@
IF( ALLOCATED( nmb ) ) DEALLOCATE( nmb )
IF( ALLOCATED( iglb ) ) DEALLOCATE( iglb )
IF( ALLOCATED( mill_b ) ) DEALLOCATE( mill_b )
END SUBROUTINE
END SUBROUTINE deallocate_gvecb
!=----------------------------------------------------------------------------=!
END MODULE gvecb
@ -238,7 +238,7 @@
CALL deallocate_gvecw( )
CALL deallocate_gvecs( )
CALL deallocate_gvecb( )
END SUBROUTINE
END SUBROUTINE deallocate_recvecs
!=----------------------------------------------------------------------------=!
END MODULE reciprocal_vectors

6
Modules/sic.f90
View File

@ -62,7 +62,7 @@
IF( nat_localisation > 0 ) print_localisation = .TRUE.
!
RETURN
END SUBROUTINE
END SUBROUTINE sic_initval
!------------------------------------------------------------------------------!
@ -70,7 +70,7 @@
IMPLICIT NONE
IF( ALLOCATED( pos_localisation ) ) DEALLOCATE( pos_localisation )
RETURN
END SUBROUTINE
END SUBROUTINE deallocate_sic
!------------------------------------------------------------------------------!
@ -127,7 +127,7 @@
593 FORMAT( 3X,'----------------------------------------')
RETURN
END SUBROUTINE
END SUBROUTINE sic_info
!------------------------------------------------------------------------------!

2
Modules/smallbox.f90
View File

@ -74,7 +74,7 @@
ainvb(3,:) = b3b(:) / alatb
RETURN
END SUBROUTINE
END SUBROUTINE small_box_set
!
!------------------------------------------------------------------------------!
END MODULE small_box

18
Modules/stick_base.f90
View File

@ -33,7 +33,7 @@
CONTAINS
!=----------------------------------------------------------------------=
SUBROUTINE sticks_maps( tk, ub, lb, b1, b2, b3, gcut, gcutw, gcuts, st, stw, sts )
SUBROUTINE sticks_maps( tk, ub, lb, b1, b2, b3, gcut, gcutw, gcuts, st, stw, sts )
USE mp, ONLY: mp_sum
USE mp_global, ONLY: me_pool, nproc_pool, intra_pool_comm, my_image_id
@ -185,11 +185,11 @@
! Test sticks
RETURN
END SUBROUTINE
END SUBROUTINE sticks_maps
!=----------------------------------------------------------------------=
SUBROUTINE sticks_maps_scalar( lgamma, ub, lb, b1, b2, b3, gcutm, gkcut, gcutms, stw, ngm, ngms )
SUBROUTINE sticks_maps_scalar( lgamma, ub, lb, b1, b2, b3, gcutm, gkcut, gcutms, stw, ngm, ngms )
LOGICAL, INTENT(IN) :: lgamma ! if true use gamma point simmetry
INTEGER, INTENT(IN) :: ub(:) ! upper bounds for i-th grid dimension
@ -247,7 +247,7 @@
enddo loop1
RETURN
END SUBROUTINE
END SUBROUTINE sticks_maps_scalar
!=----------------------------------------------------------------------=
@ -317,7 +317,7 @@
! WRITE( stdout,*) '-----------------'
RETURN
END SUBROUTINE
END SUBROUTINE sticks_sort
!=----------------------------------------------------------------------=
@ -379,7 +379,7 @@
END DO
RETURN
END SUBROUTINE
END SUBROUTINE sticks_countg
!=----------------------------------------------------------------------=
@ -478,7 +478,7 @@
END DO
RETURN
END SUBROUTINE
END SUBROUTINE sticks_dist1
!=----------------------------------------------------------------------=
@ -550,7 +550,7 @@
sticks_owner( :, : ) = ABS( stown( :, :) )
RETURN
END SUBROUTINE
END SUBROUTINE sticks_pairup
!=----------------------------------------------------------------------=
@ -811,7 +811,7 @@
SUBROUTINE sticks_deallocate
IF( ALLOCATED( sticks_owner ) ) DEALLOCATE( sticks_owner )
RETURN
END SUBROUTINE
END SUBROUTINE sticks_deallocate
!=----------------------------------------------------------------------=

4
Modules/wave_base.f90
View File

@ -656,7 +656,7 @@
REAL(dbl), INTENT(IN) :: dt2m(:)
CP( : ) = C0( : ) + dt2m(:) * grad(:)
RETURN
END SUBROUTINE
END SUBROUTINE wave_steepest
!==----------------------------------------------==!
!==----------------------------------------------==!
@ -670,7 +670,7 @@
cm( : ) = ver1 * c0( : ) + ver2 * cm( : ) + &
ver3( : ) * grad( : )
RETURN
END SUBROUTINE
END SUBROUTINE wave_verlet
!==----------------------------------------------==!

2
Modules/wavefunctions.f90
View File

@ -50,7 +50,7 @@
IF( ALLOCATED( evc_nc ) ) DEALLOCATE( evc_nc )
IF( ALLOCATED( psic ) ) DEALLOCATE( psic )
IF( ALLOCATED( evc ) ) DEALLOCATE( evc )
END SUBROUTINE
END SUBROUTINE deallocate_wavefunctions
!=----------------------------------------------------------------------------=!
END MODULE wavefunctions_module

4
PP/pw_export.f90
View File

@ -207,7 +207,7 @@
DEALLOCATE( wtmp )
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_wfc1
!=----------------------------------------------------------------------------=!
!
@ -226,7 +226,7 @@
CHARACTER(LEN=20) :: section_name = 'wfc'
idum = nbnd
RETURN
END SUBROUTINE
END SUBROUTINE write_restart_wfc2
!=----------------------------------------------------------------------------=!
!

4
PP/xctest.f90
View File

@ -112,7 +112,7 @@ subroutine test_gcxc( nnr, nspin, rhor, grhor )
end do
return
end subroutine
end subroutine test_gcxc
!
!
@ -173,4 +173,4 @@ subroutine test_xc( nnr, nspin, rhor, grhor )
end do
end do
100 FORMAT( I5, I2, 1X, E15.8, 1X, E15.8 )
end subroutine
end subroutine test_xc

2
flib/avrec.f90
View File

@ -44,4 +44,4 @@
#endif
RETURN
END SUBROUTINE
END SUBROUTINE avrec

4
flib/eispack.f90
View File

@ -1,5 +1,5 @@
#include "f_defs.h"
SUBROUTINE RS(nm, n, a, w, matz, z, fv1, fv2, ierr)
SUBROUTINE rs(nm, n, a, w, matz, z, fv1, fv2, ierr)
INTEGER n,nm,ierr,matz
REAL*8 :: a(nm,n),w(n),z(nm,n),fv1(n),fv2(n)
@ -37,4 +37,4 @@
end if
RETURN
END SUBROUTINE
END SUBROUTINE rs

16
flib/matmul.f90
View File

@ -300,7 +300,7 @@ SUBROUTINE mymatmul(ax, lda, tac, dista, bx, ldb, tbc, distb, cx, ldc, distc, n,
END IF
RETURN
END SUBROUTINE
END SUBROUTINE mymatmul
SUBROUTINE mymatmul_rrrnn(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
@ -375,7 +375,7 @@ SUBROUTINE mymatmul_rrrnn(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
#endif
RETURN
END SUBROUTINE
END SUBROUTINE mymatmul_rrrnn
SUBROUTINE mymatmul_rrcnn(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
IMPLICIT NONE
@ -431,7 +431,7 @@ SUBROUTINE mymatmul_rrcnn(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
DEALLOCATE( br )
END DO
RETURN
END SUBROUTINE
END SUBROUTINE mymatmul_rrcnn
SUBROUTINE mymatmul_rrrtn(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
@ -496,7 +496,7 @@ SUBROUTINE mymatmul_rrrtn(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
#endif
RETURN
END SUBROUTINE
END SUBROUTINE mymatmul_rrrtn
SUBROUTINE mymatmul_rrrnt(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
@ -574,7 +574,7 @@ SUBROUTINE mymatmul_rrrnt(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
#endif
RETURN
END SUBROUTINE
END SUBROUTINE mymatmul_rrrnt
@ -637,7 +637,7 @@ SUBROUTINE mymatmul_rrrtt(ax, lda, bx, ldb, cx, ldc, n, mpime, nproc)
CALL mytrasp_dati(cc, nloc, 'R', cx, nloc, 'R', n, mpime, nproc)
DEALLOCATE( cc )
RETURN
END SUBROUTINE
END SUBROUTINE mymatmul_rrrtt
@ -768,7 +768,7 @@ SUBROUTINE mytrasp_dati(ax, lda, dista, bx, ldb, distb, n, mpime, nproc)
END IF
RETURN
END SUBROUTINE
END SUBROUTINE mytrasp_dati
SUBROUTINE mytrasp_dist(ax, lda, dista, bx, ldb, distb, n, mpime, nproc)
@ -899,5 +899,5 @@ SUBROUTINE mytrasp_dist(ax, lda, dista, bx, ldb, distb, n, mpime, nproc)
RETURN
END SUBROUTINE
END SUBROUTINE mytrasp_dist

2
flib/sort_gvec.f90
View File

@ -63,4 +63,4 @@ subroutine sort_gvec( ng, g2, mill )
DEALLOCATE( index )
return
end subroutine
end subroutine sort_gvec

4
flib/transto.f90
View File

@ -143,7 +143,7 @@
end select
RETURN
END SUBROUTINE
END SUBROUTINE mytranspose
@ -277,7 +277,7 @@
end select
RETURN
END SUBROUTINE
END SUBROUTINE mytransposez

18
upftools/fpmd2upf.f90
View File

@ -60,7 +60,7 @@ contains
CLOSE(iunit)
return
end subroutine
end subroutine read_pseudo_fpmd
!=----------------------------------------------------------------------------=!
@ -140,7 +140,7 @@ contains
END DO
RETURN
END SUBROUTINE
END SUBROUTINE analytic_to_numeric
!=----------------------------------------------------------------------------=!
@ -268,7 +268,7 @@ contains
END IF
RETURN
END SUBROUTINE
END SUBROUTINE read_giannoz
!=----------------------------------------------------------------------------=!
@ -380,7 +380,7 @@ contains
152 FORMAT( 3X,'point radius rho core')
RETURN
END SUBROUTINE
END SUBROUTINE ap_info
!=----------------------------------------------------------------------------=!
@ -468,7 +468,7 @@ SUBROUTINE read_atomic_wf( iunit, ap, err_msg, ierr)
110 CONTINUE
RETURN
END SUBROUTINE
END SUBROUTINE read_atomic_wf
!=----------------------------------------------------------------------------=!
@ -555,7 +555,7 @@ SUBROUTINE read_numeric_pp( iunit, ap, err_msg, ierr)
110 CONTINUE
RETURN
END SUBROUTINE
END SUBROUTINE read_numeric_pp
!
@ -613,7 +613,7 @@ SUBROUTINE read_head_pp( iunit, ap, err_msg, ierr)
110 CONTINUE
RETURN
END SUBROUTINE
END SUBROUTINE read_head_pp
!=----------------------------------------------------------------------------=!
@ -680,7 +680,7 @@ SUBROUTINE read_analytic_pp( iunit, ap, err_msg, ierr)
110 CONTINUE
RETURN
END SUBROUTINE
END SUBROUTINE read_analytic_pp
!=----------------------------------------------------------------------------=!
@ -731,7 +731,7 @@ SUBROUTINE read_atomic_cc( iunit, ap, err_msg, ierr)
110 CONTINUE
RETURN
END SUBROUTINE
END SUBROUTINE read_atomic_cc
end module