Page MenuHomeHEPForge
Files F11221377

create_clsb_binary_files.f90
No OneTemporary
Actions

create_clsb_binary_files.f90
View Options

!************************************************************
program create_clsb_binary_files
!************************************************************
!make libHB
!gfortran create_clsb_binary_files.f90 -o create_clsb_binary_files.exe -L. -lHB
use S95tables, only : setup_S95tables,S95_t2
use S95tables_type2
use S95tables_type3
use theory_BRfunctions, only : setup_BRSM
implicit none
integer :: clsbtable_selection_id
integer :: z
allocate(clsb_t3(ntable3))
call setup_BRSM !needed for setup_S95tables
call setup_S95tables
call initializetables_type3_blank(clsb_t3)
call initializetables3(clsb_t3)
call fillt3needs_M2_gt_2M1(clsb_t3,S95_t2)
do z=lbound(clsb_t3,dim=1),ubound(clsb_t3,dim=1)
clsbtable_selection_id = clsb_t3(z)%id
call readclsbfiles(clsbtable_selection_id)
enddo
call writeclsbfiles_binary
end program create_clsb_binary_files

File Metadata

Mime Type
text/plain
Expires
Wed, May 14, 10:21 AM (1 d, 11 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
5010154
Default Alt Text
create_clsb_binary_files.f90 (892 B)

Event Timeline