Αν θέλουμε να μετρήσουμε το σύνολο των χαρακτήρων μιας μεταβλητής μπορούμε ακολούθως να τη βάλουμε μέσα σε format;
δλδ: m=len(x)
30 format(1X,Im)
δλδ να βάλουμε το m αντί αριθμό μέσα στη format.
Eυχαριστώ!
program test
! Variable Declaration
character(5) a;
integer b;
a="abcde";
b=len(a);
! Main Program
write(*,1) 1234;
write(*,1) 12345;
write(*,1) 123456;
1 format(1X,I<b>)
end
neoklas έγραψε:Ξέρει κανείς πώς κάποιες τιμές αρχείου αποθηκέυονται δυναμικά σε ένα πίνακα;
Ευχαριστώ πολύ!
Μέλη σε αυτή την Δ. Συζήτηση : Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης