memory management - Read array of unknown size from keyboard -

-

i want insert unknown number of values in array (no matter order). first read how many values inserted, allocate allocatable array, , read values, in following code

program try implicit none integer :: n real, dimension(:), allocatable :: x write (*,*) "how many values?" read (*,*) n allocate(x(n)) write (*,*) "insert values" read (*,*) x end program

what if want insert values without declaring how many before allocating array? think should use while cycle insert values in ascending order, till descending value insert, indicating sequence ended. think part of code following,

index = 1 write(*,*) x read(*,*) x(index) exit = .false. while (exit.eqv..false.)     index = index + 1     read(*,*) x(index)     if (x(index)>x(index-1))         exit = .true.         index = index - 1     end if end

how declare array x?

i tried following solution, building on concept "a lot of memory allocation , reallocation" expressed @high performance mark.

program coeffs  use compact  implicit none  real, dimension(:), allocatable :: x,x2 integer :: nl,nr,nt,index,ol,or logical :: exit  write(*,*) "input increasing sequence of reals (end sequence &         & first decreasing element, discarded):"  index = 1 allocate(x(index)) read(*,*) x(index) allocate(x2(index)) x2 = x deallocate(x) exit = .false. while (exit.eqv..false.)     index = index + 1     allocate(x(index))     x(1:index-1) = x2     read(*,*) x(index)     deallocate(x2)     allocate(x2(index))     x2 = x     deallocate(x)     if (x2(index)<x2(index-1))         exit = .true.         index = index - 1         allocate(x(index))         x = x2(1:index)     end if end deallocate(x2)  write(*,*) "x = ", x  end program

with array being input keyboard, don't think allocation/reallocation problem, since happens @ higher speed of fingers typing values, doesn't it? still think code made better. instance, using 2 arrays way take advantage of allocation/reallocation?


Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5); ...
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:...
Read more