"Fossies" - the Fresh Open Source Software Archive

Member "numpy-1.16.4/numpy/f2py/tests/src/string/char.f90" (22 Feb 2019, 618 Bytes) of package /linux/misc/numpy-1.16.4.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Fortran 90 source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 MODULE char_test
    2 
    3 CONTAINS
    4 
    5 SUBROUTINE change_strings(strings, n_strs, out_strings)
    6     IMPLICIT NONE
    7 
    8     ! Inputs
    9     INTEGER, INTENT(IN) :: n_strs
   10     CHARACTER, INTENT(IN), DIMENSION(2,n_strs) :: strings
   11     CHARACTER, INTENT(OUT), DIMENSION(2,n_strs) :: out_strings
   12 
   13 !f2py INTEGER, INTENT(IN) :: n_strs
   14 !f2py CHARACTER, INTENT(IN), DIMENSION(2,n_strs) :: strings
   15 !f2py CHARACTER, INTENT(OUT), DIMENSION(2,n_strs) :: strings
   16 
   17     ! Misc.
   18     INTEGER*4 :: j
   19 
   20 
   21     DO j=1, n_strs
   22         out_strings(1,j) = strings(1,j)
   23         out_strings(2,j) = 'A'
   24     END DO
   25 
   26 END SUBROUTINE change_strings
   27 
   28 END MODULE char_test
   29