fortran - Passing a subarray of allocatable array to a subroutine, with right bounds -


in parallel program i'm writing, defined lot of multidimensional allocatable arrays (actually 1d, 2d or 3d) allocated negative lower bounds during execution. reason why did each process handles, in 2d example, 14 14 a matrix , shares overlap of 2 layers four neighboring processes, matrix allocated bounds (-1:12,-1:12), "internal" part of matrix corresponds indices 1 10. (italic represent choice/input dependency).

the problem in doing didn't realize have been impossible rely on this fortran2003 feature, making impossible call mysub(a(:,i),...) in caller unit , refer dummy counterpart of a in subroutine using actual bounds (-1 , 12), since a(:,i) expression, , not variable.

the problem solved if pass whole array a subroutine, explained in previous linked answer, force me write "bigger" , less universal subroutine, which, on contrary, meant act on one-dimensional subarrays.

is possible pass subarray of allocatable array (e.g. a(:,1)) subroutine in way subroutine aware of bounds of actual variable?

as far know: no, not possible.

be aware often, do not want care actual lower bound of array in subroutine. if have subroutine sums array or similar, want loop 1 size of array. , want able pass arrays such subroutines.

if need start specific index in subroutine can always

1. declare lower bound magic constant

real, intent(inout) :: array(-1:,-1:,-1:)

maybe not nice, use in main production code because started way years ago.

2. declare lower bound constant in module , use that

 use contants   real, intent(inout) :: array(lb:,lb:,lb:)

3. pass lower bound dummy argument

integer, intent(in) :: lb real, intent(inout) :: array(lb:,lb:,lb:)

Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl...
Read more

Laravel mail error `Swift_TransportException in StreamBuffer.php line 269: Connection could not be established with host smtp.gmail.com [ #0]` -

i developing website contact-us page guest users can send me email using gmail . anytime try send mail using contact-us form, error swift_transportexception in streambuffer.php line 269: connection not established host smtp.gmail.com [ #0] this mail.php return [ 'driver' => env('mail_driver', 'smtp'), 'host' => env('mail_host', 'smtp.gmail.com'), 'port' => 587, 'from' => ['address' => '', 'name' => ''], 'encryption' => env('mail_encryption', 'tls'), 'username' => env('mail_username'), 'password' => env(mail_password), 'sendmail' => '/usr/sbin/sendmail -bs', 'pretend' => env('mail_pretend', false), ]; this .env mail_driver=smtp mail_host=smtp.gmail.com mail_port=587 mail_username=afecjaped@gmail.com mail_password=********...
Read more

c# SetCompatibleTextRenderingDefault must be called before the first -

i tried search exception couldn't find solution on case i'am using code below invoke .net application : assembly assem = assembly.load(data); methodinfo method = assem.entrypoint; var o = activator.createinstance(method.declaringtype); method.invoke(o, null); the application invoked has form , in entrypoint of application : [stathread] static void main() { application.enablevisualstyles(); application.setcompatibletextrenderingdefault(false); //exception application.run(new form1()); } setcompatibletextrenderingdefault must called before first iwin32window object created in application. edit : assembly = assembly.load(data); methodinfo method = a.gettype().getmethod("start"); var o = activator.createinstance(method.declaringtype); method.invoke(o, null); you should create new method skips initialization...
Read more