fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix tools_cbind

Browse Source
gpucinterfaces
Salvatore Filippone 6 months ago
parent 3b2630911b
commit 78c33d3631
5 changed files with 145 additions and 153 deletions
Show Stats Download Patch File Download Diff File

6
cbind/base/Makefile
Unescape Escape View File

@ -39,7 +39,7 @@ lib: objs
$(COBJS): $(CMOD) $(COBJS): $(CMOD)
psb_base_cbind_mod.o: psb_cpenv_mod.o psb_objhandle_mod.o psb_base_tools_cbind_mod.o \ psb_base_cbind_mod.o: psb_cpenv_mod.o psb_objhandle_mod.o psb_base_tools_cbind_mod.o \
psb_base_string_cbind_mod.o psb_base_psblas_cbind_mod.o \ psb_base_psblas_cbind_mod.o \
psb_s_tools_cbind_mod.o psb_s_serial_cbind_mod.o psb_s_psblas_cbind_mod.o \ psb_s_tools_cbind_mod.o psb_s_serial_cbind_mod.o psb_s_psblas_cbind_mod.o \
psb_d_tools_cbind_mod.o psb_d_serial_cbind_mod.o psb_d_psblas_cbind_mod.o \ psb_d_tools_cbind_mod.o psb_d_serial_cbind_mod.o psb_d_psblas_cbind_mod.o \
psb_c_tools_cbind_mod.o psb_c_serial_cbind_mod.o psb_c_psblas_cbind_mod.o \ psb_c_tools_cbind_mod.o psb_c_serial_cbind_mod.o psb_c_psblas_cbind_mod.o \
@ -47,7 +47,7 @@ psb_base_cbind_mod.o: psb_cpenv_mod.o psb_objhandle_mod.o psb_base_tools_cbind_m
psb_s_comm_cbind_mod.o psb_d_comm_cbind_mod.o \ psb_s_comm_cbind_mod.o psb_d_comm_cbind_mod.o \
psb_c_comm_cbind_mod.o psb_z_comm_cbind_mod.o psb_c_comm_cbind_mod.o psb_z_comm_cbind_mod.o
psb_base_tools_cbind_mod.o: psb_cpenv_mod.o psb_objhandle_mod.o psb_base_string_cbind_mod.o psb_base_tools_cbind_mod.o: psb_cpenv_mod.o psb_objhandle_mod.o
psb_s_tools_cbind_mod.o psb_s_serial_cbind_mod.o \ psb_s_tools_cbind_mod.o psb_s_serial_cbind_mod.o \
psb_d_tools_cbind_mod.o psb_d_serial_cbind_mod.o \ psb_d_tools_cbind_mod.o psb_d_serial_cbind_mod.o \
@ -56,7 +56,7 @@ psb_z_tools_cbind_mod.o psb_z_serial_cbind_mod.o \
psb_s_psblas_cbind_mod.o psb_d_psblas_cbind_mod.o \ psb_s_psblas_cbind_mod.o psb_d_psblas_cbind_mod.o \
psb_c_psblas_cbind_mod.o psb_z_psblas_cbind_mod.o \ psb_c_psblas_cbind_mod.o psb_z_psblas_cbind_mod.o \
psb_s_comm_cbind_mod.o psb_d_comm_cbind_mod.o \ psb_s_comm_cbind_mod.o psb_d_comm_cbind_mod.o \
psb_c_comm_cbind_mod.o psb_z_comm_cbind_mod.o: psb_base_tools_cbind_mod.o psb_objhandle_mod.o psb_base_string_cbind_mod.o psb_c_comm_cbind_mod.o psb_z_comm_cbind_mod.o: psb_base_tools_cbind_mod.o psb_objhandle_mod.o
psb_base_psblas_cbind_mod.o: psb_s_psblas_cbind_mod.o psb_d_psblas_cbind_mod.o psb_c_psblas_cbind_mod.o psb_z_psblas_cbind_mod.o psb_base_psblas_cbind_mod.o: psb_s_psblas_cbind_mod.o psb_d_psblas_cbind_mod.o psb_c_psblas_cbind_mod.o psb_z_psblas_cbind_mod.o

4
cbind/base/psb_c_tools_cbind_mod.F90
Unescape Escape View File

@ -489,9 +489,7 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to HLG' write(*,*) 'Unknown format defaulting to HLG'
amold => ahlg amold => ahlg
end select
#else #else
select case(psb_toupper(fafmt))
case('ELL') case('ELL')
amold => aell amold => aell
case('HLL') case('HLL')
@ -505,8 +503,8 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to CSR' write(*,*) 'Unknown format defaulting to CSR'
amold => acsr amold => acsr
end select
#endif #endif
end select
select case(fafmt) select case(fafmt)
#if 0 #if 0

4
cbind/base/psb_d_tools_cbind_mod.F90
Unescape Escape View File

@ -494,9 +494,7 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to HLG' write(*,*) 'Unknown format defaulting to HLG'
amold => ahlg amold => ahlg
end select
#else #else
select case(psb_toupper(fafmt))
case('ELL') case('ELL')
amold => aell amold => aell
case('HLL') case('HLL')
@ -511,8 +509,8 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to CSR' write(*,*) 'Unknown format defaulting to CSR'
amold => acsr amold => acsr
end select
#endif #endif
end select
select case(fafmt) select case(fafmt)
#if 0 #if 0

4
cbind/base/psb_s_tools_cbind_mod.F90
Unescape Escape View File

@ -494,9 +494,7 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to HLG' write(*,*) 'Unknown format defaulting to HLG'
amold => ahlg amold => ahlg
end select
#else #else
select case(psb_toupper(fafmt))
case('ELL') case('ELL')
amold => aell amold => aell
case('HLL') case('HLL')
@ -511,8 +509,8 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to CSR' write(*,*) 'Unknown format defaulting to CSR'
amold => acsr amold => acsr
end select
#endif #endif
end select
select case(fafmt) select case(fafmt)
#if 0 #if 0

4
cbind/base/psb_z_tools_cbind_mod.F90
Unescape Escape View File

@ -489,9 +489,7 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to HLG' write(*,*) 'Unknown format defaulting to HLG'
amold => ahlg amold => ahlg
end select
#else #else
select case(psb_toupper(fafmt))
case('ELL') case('ELL')
amold => aell amold => aell
case('HLL') case('HLL')
@ -505,8 +503,8 @@ contains
case default case default
write(*,*) 'Unknown format defaulting to CSR' write(*,*) 'Unknown format defaulting to CSR'
amold => acsr amold => acsr
end select
#endif #endif
end select
select case(fafmt) select case(fafmt)
#if 0 #if 0

Write Preview
Loading…
Cancel
Save