SimulationCore2/Rop/Bit_Specification.f90

subroutine Bit_Specification
    
    use sROP_Other_Variables    
    use sROP_Variables
    use CStringConfigurationVariables
    
    implicit none
    
    INTEGER :: io
    integer :: i , BitClass_name
    real(8) :: rd
    
    !H1=1.9
    !H2=7.
    !H3=1.
    !w_d_max=7.
    
    
    
    Bit_Class = (BitDefinition%BitCodeHundreds*100)+(BitDefinition%BitCodeTens*10)+BitDefinition%BitCodeOnes
    rd        = SNGL(Bit_Class)/10.d0
    Br_Coef   = ( (SNGL(Bit_Class)/10.d0)-(DINT(rd)) )*10.d0
    
    BitClass_name = (Bit_Class)/10
    
    
    
   
    
    if ( (any(BitClass_name==(/11,12,13,14,21,22,23,24,31,32,33,34,41/))) ) then
        open(unit=233,file="Bit_Database.TXT")
        READ (233,*)
        DO i=1,13!(14-1(/=10))
            READ (233,*) name, H1, H2, H3, w_d_max
            if ( name==BitClass_name ) then
                exit
            end if
        END DO
        close (233)
    else
        H1=1.50d0
        H2=1.0d0
        H3=.020d0
        w_d_max=10.0d0
    end if
    
    
   
    
    
    !print*, 'H1=' , H1
    !print*, 'H2=' , H2
    !print*, 'H3=' , H3
    !print*, 'w_d_max=' , w_d_max
    !print*, 'name=' , name
    
    
    
    
    

    ! filename = 'Bit_Database.TXT' 
    !open (UNIT=3, FILE=filename ) 
    !!print*, 'w_d_max1='  , w_d_max
    !        !print*, 'name1='  , name
    !!openif: if ( status == 0 ) then
    !    read (3,*,IOSTAT=status)    ! Get next value
    !    readloop: do i=1,14
    !        read (3,*,IOSTAT=status) name, H1, H2, H3, w_d_max   ! Get next value
    !        !print*, 'w_d_max='  , w_d_max
    !        !print*, 'name='  , name
    !        if ( status /= 0 ) exit           ! EXIT if not valid.
    !        if ( name == bit_Class/10) exit
    !    end do readloop
    !!endif openif
    
end subroutine