fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-12-20 11:35:56 +00:00
parent e16f0c342d
commit 72f53a2bc2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/internals/psi_gthsct.f90
+1 -1
View File
@@ -122,7 +122,7 @@ contains
implicit none
integer :: n, k, idx(:)
integer :: n, idx(:)
real(kind(1.d0)) :: beta, x(:), y(:)
! Locals