SILENT KILLERPanel

Current Path: > > opt > cloudlinux > > venv > > > > lib64 > python3.11 > site-packages > > numpy > > f2py > > tests > src > string

Operation   : Linux host59.registrar-servers.com 4.18.0-513.18.1.lve.2.el8.x86_64 #1 SMP Sat Mar 30 15:36:11 UTC 2024 x86_64
Software     : Apache
Server IP    : 198.54.126.42 | Your IP: 216.73.216.38
Domains      : 1034 Domain(s)
Permission   : [ 0755 ]

Files and Folders in: //opt/cloudlinux//venv////lib64/python3.11/site-packages//numpy//f2py//tests/src/string

NameTypeSizeLast ModifiedActions
char.f90 File 618 bytes April 17 2025 13:10:58.
fixed_string.f90 File 695 bytes April 17 2025 13:10:58.
scalar_string.f90 File 176 bytes April 17 2025 13:10:58.
string.f File 248 bytes April 17 2025 13:10:58.

Reading File: //opt/cloudlinux//venv////lib64/python3.11/site-packages//numpy//f2py//tests/src/string/char.f90

MODULE char_test

CONTAINS

SUBROUTINE change_strings(strings, n_strs, out_strings)
    IMPLICIT NONE

    ! Inputs
    INTEGER, INTENT(IN) :: n_strs
    CHARACTER, INTENT(IN), DIMENSION(2,n_strs) :: strings
    CHARACTER, INTENT(OUT), DIMENSION(2,n_strs) :: out_strings

!f2py INTEGER, INTENT(IN) :: n_strs
!f2py CHARACTER, INTENT(IN), DIMENSION(2,n_strs) :: strings
!f2py CHARACTER, INTENT(OUT), DIMENSION(2,n_strs) :: strings

    ! Misc.
    INTEGER*4 :: j


    DO j=1, n_strs
        out_strings(1,j) = strings(1,j)
        out_strings(2,j) = 'A'
    END DO

END SUBROUTINE change_strings

END MODULE char_test

SILENT KILLER Tool