class - Fortran convert string to number -

-

i want have subroutine converts contents of numeric string numeric type (int, real, double precision, real(real128)).

however getting error when trying use class(*). error shown below:

gfortran -o build/lib/larsa.o -c -ffree-form -g -j./build/lib lib/larsa.f lib/larsa.f:1933.35:   read (s, frmt, iostat=ios) num                                1 error: data transfer element @ (1) cannot polymorphic unless  processed defined     input/output procedure lib/larsa.f:1935.32:   read (s, *, iostat=ios) num                             1 error: data transfer element @ (1) cannot polymorphic unless  processed defined input/output procedure

this subroutine have written. 

subroutine converts_str_to_num  &   (                             &     s, num,                     &     fmt, wrn                    &   )  character (len=*), intent (in) :: s character (len=*), intent (in), optional :: fmt   class (*) :: num character (len=*), intent (inout), optional :: wrn   integer :: ios character (len=65) :: frmt  !!$ reads contents of s , puts value in i.  if (present (fmt))   frmt = "(" // trim (fmt) //  ")"   read (s, frmt, iostat=ios) num else   read (s, *, iostat=ios) num end if  end subroutine converts_str_to_num

to tidy comments, i'll provide answer.

the error message clear: cannot have polymorphic variable in input/output list unless list processed defined input/output. 9.6.3.5 in fortran 2008. class(*) num (unlimited) polymorphic.

now, polymorphic derived types define such defined input/output procedure, counts lot of work , gfortran doesn't (yet) support notion. also, can't intrinsic types. these factors mean have deal non-polymorphic variables in input list have.

of course, it's possible use generics avoid polymorphism, alternative (as polymorphic) use select type construct. simplicity, ignore list-directed , explicit format cases:

select type (assoc => num) type (int)    read (s, *, iostat=ios) assoc type (real)    ... type (...) class default    error stop "oh noes!" end select

i've used associate name in select type address 1 part of confusion. if you've done

select type(num) type (int)   read (s, *, iostat=ios) num end select

to think "now using num fine: why?" that's because num inside construct not same num outside. crucially, isn't polymorphic exact type matching type is.


Comments

Post a Comment

Popular posts from this blog

python - mat is not a numerical tuple : openCV error -

-
i have write down code showing error ma not getting it: please help: showing mat not numerical tuple: import cv import cv2 capture = cv2.videocapture("j.3gp") while(1): _, frame1 = capture.read() grayimage1 = cv2.cvtcolor(frame1, cv2.color_bgr2gray) _, frame2 = capture.read() grayimage2 = cv2.cvtcolor(frame2, cv2.color_bgr2gray) differenceimage = cv2.absdiff(grayimage1,grayimage2) thresholdimage = cv2.threshold(differenceimage,25,255,cv2.thresh_binary) cv2.imshow("difference image", differenceimage) cv2.imshow("threshold image", thresholdimage) cv2.imshow("image", frame1) k = cv2.waitkey(30) & 0xff error arising : ----------------------------------------------------------------------------------------- traceback (most recent call last): file "desk.py", line 15, in <module> cv2.imshow("threshold image", thresholdimage) typeerror: mat not numerical tuple ...
Read more

c# - MSAA finds controls UI Automation doesn't -

-
i'm working on automating windows application. i'm using teststack white framework. i've hit problem. program has 'window' object cannot see inside of. white shows no controls inside of it. inspect.exe shows no controls inside of either when running in ui automation mode. if switch inspect msaa see controls inside fine. there anyway me use msaa c# handle on these controls? if can identify msaa functions need, can use p/invoke call them c#. here's example article doing msaa: http://www.codeproject.com/articles/38906/ui-automation-using-microsoft-active-accessibility also, pinvoke.net can used identify iaccessible (msaa) functions: http://www.pinvoke.net/search.aspx?search=iaccessible&namespace=[all] here's answer along lines: msaa com-based? finally, alternative p/invoke, might able use tlbimp.exe create wrapper assembly oleacc.dll, , access msaa functions through it. i'm not sure if works msaa, it's worth try. as e...
Read more

wordpress - .htaccess: RewriteRule: bad flag delimiters -

-
pulling hair out on one. have following .htaccess file custom redirects in addition wordpress's default settings. when tested on local wamp server worked fine after moving production i'm not getting rewriterule: bad flag delimiters error in server log , after while site goes down internal server error any appreciated. in advance! <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^rockford_weddings___welcome\.html$ /wedding/ [r=301,l] rewriterule ^blog/?$ /journal/ [r=301,l] rewriterule ^blog/(.*)$ /$1 [r=301,l] rewriterule ^portraitinvestment/?$ /portraitinvestment\.pdf [r=301,l] rewriterule ^weddinginvestment/?$ /weddinginvestment\.pdf [r=301,l] rewriterule ^holidaycards2014/?$ /holidaycards2014\.pdf [r=301,l] </ifmodule> # begin wordpress <ifmodule mod_rewrite.c> rewriteengine on rewritebase / rewriterule ^index\.php$ - [l] rewritecond %{request_filename} !-f rewritecond %{request_filename} !-d rewriterule . /index.php [l] </...
Read more