git push -u origin main

2026-03-19 14:05:33 +08:00
commit 1e30b7bc63
739 changed files with 572150 additions and 0 deletions
@@ -0,0 +1,16 @@
+        subroutine count_words(cadena,n)
+C
+C       Counts the number of words separated by blanks in a string
+C
+        character*1000  cadena
+        character*1     a,b
+
+        n=0
+        a=cadena(1:1)
+        if (a.ne.' ') n=1
+        do i=2,len(cadena)
+         b=cadena(i:i)
+         if(b.ne.' '.and.a.eq.' ') n=n+1
+         a=b
+        enddo
+        end