fortran90 - Parse random "String + Integers" in Fortran -

-

say want parse following string:

"compute sum of (integer) , (integer)" in fortran 90, of have no way of telling how large integer be. can 3, 300,000.

as far can tell format statement not leave room inferring size of integer @ run-time. choose large size, i5, number small 3 , program crashes.

how best go this?

if location of integers in string known @ compile time (e.g. 5th , 7th words), can integers directly using list-directed read:

character(256) :: line, words( 50 ) integer :: i1, i2  line = "compute sum of 3 , 30000, get..."  read( line, * ) words( 1 : 7 )   !! first 7 words line read( words( 5 ), * ) i1         !! convert 5th , 7th words integer read( words( 7 ), * ) i2         !! i1 = 3, i2 = 30000

but if location of integers not known (e.g. when obtained user input), things more complicated... have written subroutines this, if may seem useful please try :)

module strmod contains  subroutine split ( line, words, nw )     implicit none     character(*), intent(in)  :: line     character(*), intent(out) :: words(:)     integer,      intent(out) :: nw     character(len(words)) :: buf( size(words) )     integer :: k, ios      nw = 0 ; words(:) = ""      k = 1, size(words)         read( line, *, iostat=ios ) buf( 1 : k )         if ( ios /= 0 ) exit         nw = k         words( 1 : nw ) = buf( 1 : nw )     enddo  endsubroutine  subroutine words_to_ints ( words, ints, ni )     implicit none     character(*), intent(in)  :: words(:)     integer,      intent(out) :: ints(:)     integer,      intent(out) :: ni     integer :: k, val, ios      ni = 0 ; ints(:) = 0      k = 1, size(words)         read( words( k ), *, iostat=ios ) val         if ( ios /= 0 ) cycle         ni = ni + 1         if ( ni > size(ints) ) stop "size(ints) small"         ints( ni ) = val     enddo  endsubroutine  endmodule  program main     use strmod     implicit none     character(80) :: line, words( 50 )  !! works size 5 or 7 etc     integer :: ints( 50 ), nw, ni, k      line = "compute sum of 3 , 30000, 300003 (no!!)"             !... note: spaces , commas serve delimiters. better avoid "/".      call split ( line, words, nw )     call words_to_ints ( words, ints, ni )      print *, "word counts:", nw     k = 1, nw         print *, trim( words( k ) )     enddo      print *, "int counts:", ni     print *, ints( 1 : ni ) end

results:

word counts:          12 compute sum of 3 , 30000 300003 (no!!) int counts:           3        3       30000      300003

Comments

Post a Comment

Popular posts from this blog

matlab - error with cyclic autocorrelation function -

-
Image
i'm trying code cyclic autocorrelation function in matlab follows: t=0:(n-1); t=t*te; i_alpha=0; tau=-n2*te:te:n2*te; alpha=-1/2:1/n:1/2; ryy_cl=zeros(length(alpha),length(tau)); alpha=alpha/te ind_tau=0; i_alpha=i_alpha+1; k=tau ind_tau=ind_tau+1; if k>0 % ryy_cl(i_alpha,ind_tau)=1/length(sig_bin_syl_mod(1:end- k))*sum((sig_bin_syl_mod(1:end-k)).*sig_bin_syl_mod(k+1:end)).*exp(1i*2*pi*alpha*t(1+k:length(sig_bin_syl_mod(1:end)))); ryy_cl(i_alpha,ind_tau)=(1/n)*sum((sig_bin_syl_mod(1:end-k)).*sig_bin_syl_mod(k+1:end)).*exp(-1i*2*pi*alpha*t(1:end-k)); else ryy_cl(i_alpha,ind_tau)=(1/n)*sum((sig_bin_syl_mod(1-k:end)).*sig_bin_syl_mod(1:end+k)).*exp(-1i*2*pi*alpha*t(1-k:end)); end end end i'm getting errors, , doesn't show expecting. according below formulae, how can fix it? the code provided incomplete, difficult confidently reproduce error. in particular, haven't de...
Read more

django - (fields.E300) Field defines a relation with model 'AbstractEmailUser' which is either not installed, or is abstract -

-
i trying create customuser django project email username , add radio button truck , company. in registration process email-id registered per truck or company. mentioned radio button 'tag' , add manytomany field tag in emailuser model. when makemigrations, raising error : (fields.e300) field defines relation model 'abstractemailuser' either not installed, or abstract. i quite new django , not sure whether have created correct code wants. please me solving this. here code, models.py: import django django.contrib.auth.models import ( abstractbaseuser, baseusermanager, permissionsmixin) django.core.mail import send_mail django.db import models django.utils import timezone django.utils.translation import ugettext_lazy _ class emailusermanager(baseusermanager): """custom manager emailuser.""" def _create_user(self, email, password, is_staff, is_superuser, **extra_fields): """create , save emailus...
Read more

c# - What is a good .Net RefEdit control to use with ExcelDna? -

-
i using exceldna , c# build suite of tools. part of forms i'd want user select cells/ranges workbook. i've got application.inputbox route working...but doesn't cool... i haven't read many things excel's refedit control, , see many have in past written workarounds, in (shudder) vba or vb.net. however, none of these seem recent... best approach/control refedit functionality on form run via exceldna (if applicable)? the refedit sample project of github explores different ways of dealing threading when showing form excel add-in, main issue making refedit control .net add-in. check page links various other implementations: https://github.com/excel-dna/exceldna/wiki/links-about-refedit
Read more