comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 22:25:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix typo

Browse source 
svn-origin-rev: 13303
This commit is contained in:
Joost VandeVondele 2013-11-08 20:26:44 +00:00
parent 310d196678
commit 2986abcb85
7 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/dbcsr_lib/dbcsr_message_passing__nametype1_.template
View file

@ -2015,7 +2015,7 @@
IF (ierr .ne. 0) CALL mp_abort("mpi_file_write_at_[nametype1]v @ "//routineN)
DEALLOCATE(status)
#else
WRITE(UNIT=fh, POS=offset+1) msg(1:msglen)
WRITE(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_write_at_[nametype1]v
@ -2157,7 +2157,7 @@
IF (ierr .ne. 0) CALL mp_abort("mpi_file_read_at_all_[nametype1]v @ "//routineN)
DEALLOCATE(status)
#else
READ(UNIT=fh, POS=offset+1) msg(1:msglen)
READ(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_read_at_all_[nametype1]v

4
src/dbcsr_lib/dbcsr_message_passing_c.F
View file

@ -2015,7 +2015,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_write_at_cv @ "//routineN)
DEALLOCATE(status)
#else
WRITE(UNIT=fh, POS=offset+1) msg(1:msglen)
WRITE(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_write_at_cv
@ -2157,7 +2157,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_read_at_all_cv @ "//routineN)
DEALLOCATE(status)
#else
READ(UNIT=fh, POS=offset+1) msg(1:msglen)
READ(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_read_at_all_cv

4
src/dbcsr_lib/dbcsr_message_passing_d.F
View file

@ -2015,7 +2015,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_write_at_dv @ "//routineN)
DEALLOCATE(status)
#else
WRITE(UNIT=fh, POS=offset+1) msg(1:msglen)
WRITE(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_write_at_dv
@ -2157,7 +2157,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_read_at_all_dv @ "//routineN)
DEALLOCATE(status)
#else
READ(UNIT=fh, POS=offset+1) msg(1:msglen)
READ(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_read_at_all_dv

4
src/dbcsr_lib/dbcsr_message_passing_i.F
View file

@ -2015,7 +2015,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_write_at_iv @ "//routineN)
DEALLOCATE(status)
#else
WRITE(UNIT=fh, POS=offset+1) msg(1:msglen)
WRITE(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_write_at_iv
@ -2157,7 +2157,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_read_at_all_iv @ "//routineN)
DEALLOCATE(status)
#else
READ(UNIT=fh, POS=offset+1) msg(1:msglen)
READ(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_read_at_all_iv

4
src/dbcsr_lib/dbcsr_message_passing_l.F
View file

@ -2015,7 +2015,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_write_at_lv @ "//routineN)
DEALLOCATE(status)
#else
WRITE(UNIT=fh, POS=offset+1) msg(1:msglen)
WRITE(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_write_at_lv
@ -2157,7 +2157,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_read_at_all_lv @ "//routineN)
DEALLOCATE(status)
#else
READ(UNIT=fh, POS=offset+1) msg(1:msglen)
READ(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_read_at_all_lv

4
src/dbcsr_lib/dbcsr_message_passing_r.F
View file

@ -2015,7 +2015,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_write_at_rv @ "//routineN)
DEALLOCATE(status)
#else
WRITE(UNIT=fh, POS=offset+1) msg(1:msglen)
WRITE(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_write_at_rv
@ -2157,7 +2157,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_read_at_all_rv @ "//routineN)
DEALLOCATE(status)
#else
READ(UNIT=fh, POS=offset+1) msg(1:msglen)
READ(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_read_at_all_rv

4
src/dbcsr_lib/dbcsr_message_passing_z.F
View file

@ -2015,7 +2015,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_write_at_zv @ "//routineN)
DEALLOCATE(status)
#else
WRITE(UNIT=fh, POS=offset+1) msg(1:msglen)
WRITE(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_write_at_zv
@ -2157,7 +2157,7 @@
IF (ierr .NE. 0) CALL mp_abort("mpi_file_read_at_all_zv @ "//routineN)
DEALLOCATE(status)
#else
READ(UNIT=fh, POS=offset+1) msg(1:msglen)
READ(UNIT=fh, POS=offset+1) msg(1:msg_len)
#endif
END SUBROUTINE mp_file_read_at_all_zv