init_gvec_to_gene_c Subroutine

public subroutine init_gvec_to_gene_c(fileName) bind(c,name='init_gvec_to_gene')

Arguments

Type IntentOptional Attributes Name
character(kind=C_CHAR, len=1), dimension(*) :: fileName

Calls

proc~~init_gvec_to_gene_c~~CallsGraph proc~init_gvec_to_gene_c init_gvec_to_gene_c init_gvec_to_gene init_gvec_to_gene proc~init_gvec_to_gene_c->init_gvec_to_gene proc~c_to_f_string c_to_f_string proc~init_gvec_to_gene_c->proc~c_to_f_string proc~get_c_string_length get_c_string_length proc~init_gvec_to_gene_c->proc~get_c_string_length

Source Code

  subroutine init_gvec_to_gene_c(fileName) bind(c,name='init_gvec_to_gene')
    character(kind=C_CHAR, len=1), dimension(*) :: fileName
    character(len=:), allocatable :: fileName_f
    integer :: nchar

    nchar = get_c_string_length(fileName)
    if(nchar.gt.256) stop "c string length is restricted to 256"
    call c_to_f_string(fileName, fileName_f)
    call init_gvec_to_gene(fileName_f(1:nchar))

  end subroutine init_gvec_to_gene_c