Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Assuming that the meaning of argc and argv in the context of a C program's main function apply, then you could do something like:</p> <pre><code>! Default binding label is already lower case, but for clarity ! it is good practice to specify the binding label explicitly. function fortname(argc, argv) bind(c, name='fortname') use, intrinsic :: iso_c_binding, only: c_int, c_ptr implicit none !---- ! Note C std allows argc == 0 integer(c_int), intent(in), value :: argc ! Lower bound set to match C convention where element 0 probably ! is name of program. May be zero size. type(c_ptr), intent(in) :: argv(0:argc-1) ! Function result. integer(c_int) :: fortname </code></pre> <p>To convert those arguments across to something that is easier to use in Fortran (and further assuming that your Fortran processor supports all applicable parts of the Fortran 2003 standard, noting that deferred length character components are not currently supported by at least one commonly used processor) you could then...</p> <pre><code> !---- ! Name of the program. character(:), allocatable :: prog_name ! Type to use for arrays of pointers to variable length strings. type :: string character(:), allocatable :: item end type string ! Our arguments. May be zero size. type(string) :: arguments(argc-1) integer :: i ! argument index. !**** if (argc &gt; 0) then ! argv has something useful ! make program name accessible to fortran code. call c_f_string(argv(0), prog_name) ! make arguments accessible to fortran code. do i = 1, size(arguments) call c_f_string(argv(i), arguments(i)%item) end do else ! no useful information provided in argv prog_name = '' end if ! Work with arguments%item and prog_name... print "(A)", prog_name do i = 1, size(arguments) ; print "(A)", arguments(i)%item ; end do fortname = 0 contains ! Copy a null terminated C string (specified via a non-null c_ptr) to an ! allocatable deferred length default character variable. subroutine c_f_string(c_string, f_string) use, intrinsic :: iso_c_binding, only: c_char, c_null_char, c_f_pointer !---- type(c_ptr), intent(in) :: c_string character(:), intent(out), allocatable :: f_string !---- ! Array for accessing string pointed at by C pointer character(kind=c_char), pointer :: string_ptr(:) integer :: i ! string index interface ! Steal std C library function rather than writing our own. function strlen(s) bind(c, name='strlen') use, intrinsic :: iso_c_binding, only: c_ptr, c_size_t implicit none !---- type(c_ptr), intent(in), value :: s integer(c_size_t) :: strlen end function strlen end interface !**** ! Map C pointer to fortran character array call c_f_pointer(c_string, string_ptr, [strlen(c_string)]) ! Allocate fortran character variable to the c string's length allocate(character(size(string_ptr)) :: f_string) ! Copy across (with possible kind conversion) characters forall (i = 1:size(string_ptr)) f_string(i:i) = string_ptr(i) end subroutine c_f_string end function fortname </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POctest create_test_sourcelist with fortran and char**
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USIanH
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COThanks, just what I was looking for. This is a great example of how to make a Fortran main program wrapped in a C int main(). Now hopefully I understand CMake's create_test_sourcelist semantics correctly.
      singulars
      1. PO
      1. USzbeekman
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload