📂 FileMgr
📍
/
opt
/
cloudlinux
/
venv
/
lib
/
python3.11
/
site-packages
/
numpy
/
f2py
/
tests
/
src
/
string
✏️ src/string/fixed_string.f90
⬅ Kembali
function sint(s) result(i) implicit none character(len=*) :: s integer :: j, i i = 0 do j=len(s), 1, -1 if (.not.((i.eq.0).and.(s(j:j).eq.' '))) then i = i + ichar(s(j:j)) * 10 ** (j - 1) endif end do return end function sint function test_in_bytes4(a) result (i) implicit none integer :: sint character(len=4) :: a integer :: i i = sint(a) a(1:1) = 'A' return end function test_in_bytes4 function test_inout_bytes4(a) result (i) implicit none integer :: sint character(len=4), intent(inout) :: a integer :: i if (a(1:1).ne.' ') then a(1:1) = 'E' endif i = sint(a) return end function test_inout_bytes4
💾 Simpan
Batal
⬅ src
4 item
Nama
Tipe
Ukuran
Diubah
Aksi
📄
char.f90
f90
618 B
2026-01-20 12:58
✏️
👁️
🔤
🗑
📄
fixed_string.f90
f90
695 B
2026-01-20 12:58
✏️
👁️
🔤
🗑
📄
scalar_string.f90
f90
176 B
2026-01-20 12:58
✏️
👁️
🔤
🗑
📄
string.f
f
248 B
2026-01-20 12:58
✏️
👁️
🔤
🗑
✏️ Rename
Nama Baru
Simpan
Batal