named constants (parameter attribute) in derived data type fortran 90 -


it seems fortran 90 not allow named constants in derived data types. true? not work.

program my_prog implicit none    type :: my_type       integer, parameter :: = 1       real(kind(1.d0))   :: b    end type my_type    type (my_type) :: complex_type end programmy_prog

the compiler says parameter statement not permitted in derived type definitions. when remove parameter keyword works fine. how can make sure 'a' not modified elsewhere?

according standard, not allowed. component attribute specifier may pointer, , dimension fortran 90/95 (section 4.4.1), additionally allocatable in fortran 2003 (section 4.5.3), , additionally codimension, , contiguousfor fortran 2008 (section 4.5.4.1).

you can documents here.

i ran similar problem target specifier, not allowed.

edit: why not try private components? 

module typedef   type :: my_type     integer, private :: a_int = 1     real(kind(1.d0)) :: b   contains     procedure ::   end type my_type  contains   function a(complex_type)     class(my_type),intent(in) :: complex_type     integer ::     = complex_type%a_int   end function end module  program my_prog   use typedef   implicit none    type (my_type) :: complex_type    complex_type%b = 2.d0 ! should work   write(*,*) complex_type%a(), complex_type%b  !  complex_type%a_int = 3    ! should fail  end program my_prog

Comments

Post a Comment

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

rewrite - Trouble with Wordpress multiple custom querystrings -

i'm working on adding multiple querystring , doesn't seem work. i've found codes seems work others might i'm missing something. i want like: http://mydomain.com/board/?getyear=2013&getsometext2=sometext to http://mydomain.com/board/2013/sometext/ i added code below functions.php file. doesn't seem work should though. this works. echoing querystring gets both variable without problem. http://mydomain.com/board/2013/sometext/ but doesn't. tested querystring vis isset() seems nothing being set/get http://mydomain.com/board/2013/ function add_query_vars($vars) { $vars[] = "getyear"; $vars[] = "getsometext2"; return $vars; } add_filter('query_vars', 'add_query_vars'); function add_rewrite_rules($arules) { $anewrules = array('board/([^/]+)/([^/]+)/?$' => 'index.php?pagename=board&getyear=$matches[1]&getsometext2=$matches[2]'); $arules = $a...
Read more