View previous topic :: View next topic |
Author |
Message |
PaulLaidler Site Admin

Joined: 21 Feb 2005 Posts: 7262 Location: Salford, UK
|
Posted: Thu Aug 12, 2021 10:26 am Post subject: |
|
|
FLOOR and CEILING have now been added for the next release of FTN95. |
|
Back to top |
|
 |
simon
Joined: 05 Jul 2006 Posts: 207
|
Posted: Wed Feb 23, 2022 4:22 am Post subject: |
|
|
Hi Paul,
Would it be difficult to add SOURCE= as an optional argument to ALLOCATE? I believe it is a 2003 standard. |
|
Back to top |
|
 |
PaulLaidler Site Admin

Joined: 21 Feb 2005 Posts: 7262 Location: Salford, UK
|
Posted: Wed Feb 23, 2022 8:30 am Post subject: |
|
|
Simon
I don't know off hand but I will add it to the list for investigation. |
|
Back to top |
|
 |
PaulLaidler Site Admin

Joined: 21 Feb 2005 Posts: 7262 Location: Salford, UK
|
Posted: Mon Feb 28, 2022 5:38 pm Post subject: |
|
|
At first sight, implementing SOURCE= may not be very difficult but "allocate on assignment" is already provided. It is similar and more direct.
Code: | program main
integer a(10)
integer,allocatable::b(:)
a = 7
b = a
print*,b
end program main |
|
|
Back to top |
|
 |
simon
Joined: 05 Jul 2006 Posts: 207
|
Posted: Tue Mar 01, 2022 4:50 am Post subject: |
|
|
Many thanks Paul. The allocate on assignment will work for most instances I need. |
|
Back to top |
|
 |
|