Error unexpected junk after else statement at 1

Неожиданный мусор после еще?

Я новичок в Fortran (я имею в виду, что начал 5 минут назад), и я бездельничал, и я знаю, как делать запуск/завершение программ печати и часть if оператора if. Проблема, с которой я сталкиваюсь, связана с другой частью. Постоянно выдает ошибку:

Для чего нужны скобки после вашего ELSE ? Сообщение об ошибке указывает прямо на них. Я предполагаю, что у вас есть онлайн-руководство по Fortran или его печатная копия, на которую можно ссылаться для правильного синтаксиса.

Сначала я написал это без скобок, но произошла та же ошибка. Я просто смотрел, есть ли разница, но это не так.

Учитывая, что вы начали изучать язык «минуты назад», я бы порекомендовал проверить документацию, а не просто гадать. Вы выучите язык быстрее и точнее. Вы, вероятно, нашли бы ответ быстрее, чем писать здесь.

Правильная структура вашего примера кода должна быть похожа на:

Обратите внимание, что за оператором if в строке 25 следует ключевое слово then, а ваши параметры разделены оператором else.

Также номер строки не нужен. Я просто использовал его здесь, чтобы сослаться на строку в своем ответе.

Здесь не нужны номера строк. Кроме того, постер использует свободную форму, есть ли смысл переходить на фиксированную форму? Я бы также предложил добавить implicit none и объявить x.

я просто использовал номер строки здесь, чтобы я мог сослаться на строку в своем ответе.

@jmh большое спасибо, это сработало! Итак, просто чтобы уточнить, мне нужно «тогда» после моего последнего, если перед тем, как я поставлю «еще»?

да. Вы можете сделать if без «тогда», как в первых двух строках выше, или вы можете сделать то, что известно как конструкция «если-то-иначе», как мы использовали. У вас также может быть if-then-endif без каких-либо других.

Какой редактор кода вы используете? Многие понимают синтаксис фортрана и сделают соответствующие выделения там, где они появляются.

Источник

3xjakp79a

Fortran Online Compiler

Write, Run & Share Fortran code online using OneCompiler’s Fortran online compiler for free. It’s one of the robust, feature-rich online compilers for Fortran language, running on the latest version 7. Getting started with the OneCompiler’s Fortran compiler is simple and pretty fast. The editor shows sample boilerplate code when you choose language as Fortran and start coding.

Read inputs from stdin

OneCompiler’s Fortran online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample Fortran program which takes name as input and prints hello message with your name.

About Fortran

Fortran language was initially developed for scientific calculations by IBM in 1957. It has a number of in-built functions to perform mathematical calculations and is ideal for applications which has more mathematical calculations.

Syntax help

Data Types

Variables

Variable is a name given to the storage area in order to manipulate them in our programs.

Arrays

Array is a collection of similar data which is stored in continuous memory addresses.

Syntax

Example

Loops

Do is used to execute a set of statement(s) iteratively when a given condition is true and the loop variable must be an integer.

2. Do-While:

Do-While is used to execute a set of statement(s) iteratively when a given condition is true.

If is used to execute a set of statements based on a condition.

4. If-Else:

If is used to execute a set of statements based on a condition and execute another set of statements present in else block, if condition specified in If block fails.

Источник

Ocean Modeling Discussion

Set a land mask on the sea in SeaGrid

Set a land mask on the sea in SeaGrid

#1 Unread post by Scarlett » Wed Feb 07, 2018 5:15 pm

Hi ROMS users!
I’m working with SeaGrid, in my map I want to mask a part of the ocean, like it was a land mask. Already I’m doing it clicking on a each ocean cell where that I want do the mask, but I have many cells (because my resolution is 1/24°) and my masking will be very slow.
I wonder if exist an other method to do the mask in a specific area, if I don’t want to click cell by cell?
Somebody know how? Thanks in advance.
I add my grid, and a select the part that i want to mask.

Re: Set a land mask on the sea in SeaGrid

#2 Unread post by kate » Wed Feb 07, 2018 6:20 pm

Hmm, first, the model requires all angles to be right angles. From what I know of seagrid, your orthogonality errors could be substantial with that grid because you don’t ask it to converge.

The matlab editmask has the capability of changing whole rectangles at a time.

I do this stuff outside matlab. Just figure out the patch I want to change and code it up. This is Python, but you can use your language of comfort (you have one, right. ):

Re: Set a land mask on the sea in SeaGrid

#3 Unread post by Scarlett » Sat Feb 10, 2018 1:04 am

Hi Kate:
So many thanks for your help, I had not known that the model requires all angles to be right angles. I already corrected this, for the other hand I could mask the sea in matlab, based on your code. Thanks.

But I have a question, Do you know how can I save the netcdf file with the new variable (already edited)?
Thanks in advance.

This is my code:

%% Load Netcdf file
ncfile =’/home/ahumada/roms-3.7/matlab/seagrid/GT4_roms_grd.nc’

% nombre de la variable(renglon i:renglon n, columna i: columna n)= O
% cero es tierra

mask_rho(387:432,203:347) = 0
mask_rho(327:432,386:720) = 0
mask_rho(139:327,641:720) = 0
mask_rho(173:326,534:640) = 0
mask_rho(161:180,543:557) = 0
mask_rho(161:174,558:597) = 0
mask_rho(182:326,506:533) = 0
mask_rho(318:326,500:505) = 0

figure(1)
pcolor(lonr, latr,h);
colormap(‘jet’);
hold on
shading interp

Re: Set a land mask on the sea in SeaGrid

#4 Unread post by shchepet » Sun Feb 11, 2018 11:27 am

Re: Set a land mask on the sea in SeaGrid

#5 Unread post by shchepet » Sun Feb 11, 2018 11:53 am

Re: Set a land mask on the sea in SeaGrid

#6 Unread post by Scarlett » Wed Feb 14, 2018 5:46 pm

Hi Alexander F. Shchepetkin:
So many thanks for your help. Yes, it is the kind of grid that I want to create.
I followed your advice to do it with the new tools. But I had have some problems with the mpc compile.

I followed the README.compiling file, but when I compile mpc I get:

mpc.f:335:18: Error: Syntax error in IF-expression at (1)
mpc.f:336:19: Error: Syntax error in IF-expression at (1)
mpc.f:337:20: Error: Syntax error in IF-expression at (1)
mpc.f:338:21: Error: Syntax error in IF-expression at (1)
mpc.f:339:22: Error: Syntax error in IF-expression at (1)
mpc.f:340:23: Error: Syntax error in IF-expression at (1)
mpc.f:343:19:

endif
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:344:18:

endif
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:345:17:

endif
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:346:16:

endif
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:347:15:

endif ! After this moment «i» is
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:348:14:

endif ! index of the last character
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:349:13:

endif ! of Fortran type declaration
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:350:12:

endif ! which may be either «real»,
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:351:11:

endif ! «integer», or «character»..
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:355:10:

do while (j ‘Z’. and.
1
Error: Unexpected junk after ELSE statement at (1)
mpc.f:689:16:

do while(str(m-1) == ‘ ‘)
1
Error: Unclassifiable statement at (1)
mpc.f:693:18:

str(i+2)=str(i)
1
Error: Unclassifiable statement at (1)
mpc.f:695:16:

str(m)=’_’
1
Error: Unclassifiable statement at (1)
mpc.f:696:16:

str(m+1)=’8′
1
Error: Unclassifiable statement at (1)
mpc.f:698:17:

endif
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:699:15:

endif
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:700:13:

endif
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:701:11:

enddo
1
Error: Expecting END PROGRAM statement at (1)
mpc.f:706:17: Error: Syntax error in IF-expression at (1)
mpc.f:707:39:

scratch(i:i)=char(ichar(str(i))+case_fold)
1
Error: Syntax error in argument list at (1)
mpc.f:708:72: Error: Unexpected ELSE statement at (1)
mpc.f:709:12:

scratch(i:i)=str(i)
1
Error: Unclassifiable statement at (1)
mpc.f:710:13:

endif
1
Error: Expecting END DO statement at (1)
mpc.f:794:15: Error: Syntax error in IF-expression at (1)
mpc.f:796:10:

Re: Set a land mask on the sea in SeaGrid

#7 Unread post by shchepet » Wed Feb 14, 2018 11:25 pm

The reason why you have these compiling problems is a faulty version of mpc.F supplied
with the package at some point in the past. This was corrected, but it appears that the
old version came back because at some point the web page was restored from the backup
after disk failure and I did not realize that this happened. At this moment I do not
have access to the web server to replace tar file, so use file «tools.tar» attached to
this response.

Note that a Matlab grid generation tool which was used to make the grid in the previous
post is also available from the same web suite
http://people.atmos.ucla.edu/alex/ROMS/grid_gui.tar
although it is relatively new and lacks instructions — a README file is being written,
but not included into the package yet. It is basically a tool to create analytical
grid using staged conformal transformations. Setting all weird parameters to zero

cent_lat = EWtpr = NStpr = cushn1 = cushn2 = cushn3 = cushn4 = 0

reverts it to easy_grid type of tool: it creates a patch of Mercator grid transferred
to user-specified location and rotated by user-specified azimuth angle.

Optionally the initial rectangular patch on Mercator plane can be deformed into
a desired shape by two kind of transforms:

(i) «tapering» in either direction — rectangle turns into a sector of polar coordinates
with simultaneous exponential stretching along the radial direction (delta r is
proportional to r), and

(ii) «cushioning» — rectangle becomes convex in one direction, concave in the other
(or vice versa, depending whether parameter cushn is positive or negative).
This is actually transform into elliptic coordinates: imagine a family of confocal ellipses
and a family of hyperbolae with the same foci. It can be proven that ellipses and
hyperbolae intersect each other at right angle. This is the basis.

Parameter cushn controls the location of foci:

cushn=0 means that they are infinitely
far away — rectangle remains rectangle and nothing happens;

cushn > 0 makes them approach from infinity along x-axis — actually places the foci
on the horizontal line passing through point (xctr,yctr) and at equal distance from
the point, so the rectangle become concave in eastern and western side (they become
hyperbolae) and convex on northen and southern (they become cutoffs of ellipses).
Now exactly depends on (xctr,yctr).

cushn along y-axis — similarly, but everything is rotated
90 degrees.

It is a bit tricky to control, but after some practice you can fit very weird shapes.

1. The boundaries of the map are determined automatically based on current grid
configuration. Once the desired geographical region is captured unclick the «redraw map»
box on top — this would speed up the drawing by a factor of 100 LITERALLY(!) because
map does not need to be redrawn every time when you hit «update» button.

2. Leaving one of the four boxes, nx, ny, size_x, size_y , blank makes the tool to calculate
the missing value from the condition of isotropy of the grid: dx = dy EVERYWHERE (same
as pm == pn EVERYWHERE). This is very useful. Of course, if size_x, size_y are both
specified, but one of nx,ny is not, then isotropy is not exact because of rounding
to the nearest integer; but is nx,ny are both specified, while one of size_x,size_y left
blank, then isotropy is perfect. THIS IS HOW I ALWAYS RECOMMEND to do it at the end:
at first specify both size_x,size_y, and leave nx blank, play with setting until
you like it, then see Matlab command window to figure nx (the tool always prints the
computed value), put nx into the box, but erase size_x or size_y — the tool will
adjust its value to make the grid be perfectly isotropic.

3. UPDATE button draws the new contour on top of the old (alternating between red and
magenta colors). This is useful to visualize incremental change, so you can accept or
reverse it. Hitting UPDATE button second time without changing any of the parameters
makes single contour.

4. The contours are actually double lines exactly 1dx or 1dy apart from each other.
this is useful because one can use Matlab zoom facility to check how the edge of
the grid is placed relative to the coastline: ideally the coastline should be in
between the double lines — in this case there will be EXACTLY 1 row of mask points.

Источник

    if (i == 1 .AND. j==1) then
        E = E + A(i+1,j) + A(i,j+1) + A(L,j) + A(i,L)

    else if (i == 1 .AND. j==L) then
        E = E + A(i,j-1) + A(i+1,j) + A(i,1) + A(L,j)

    else if (i == L .AND. j == 1) then
        E = E + A(i,j+1) + A(i-1,j) + A(1,j) + A(i,L)

    else if (i == L .AND. j == L) then
        E = E + A(i,j-1) + A(i-1,j) + A(1,j) + A(i,1)

    else if (i == 1 .AND. 1 < j < L) then
        E = E + A(i+1,j) + A(i,j+1) + A(i,j-1) + A(L,j)

    else if (i == L .AND. 1 < j < L) then
        E = E + A(i-1,j) + A(i,j+1) + A(i,j-1) + A(1,j)

    else if (1 < i < L .AND. j == 1) then
        E = E + A(i-1,j) + A(i+1,j) + A(i,j+1) + A(i,L)

    else if (1 < i < L .AND. j == L) then
        E = E + A(i-1,j) + A(i+1,j) + A(i,j-1) + A(i,1)
    else
        E = E + A(i-1,j) + A(i+1,j) + A(i,j-1) + A(i,j+1)
    end if

Ising.f90:56:15:

     else if (i == 1 .AND. 1 < j < L) then
           1
Error: Unexpected junk after ELSE statement at (1)
Ising.f90:59:15:

     else if (i == L .AND. 1 < j < L) then
           1
Error: Unexpected junk after ELSE statement at (1)
Ising.f90:62:15:

     else if (1 < i < L .AND. j == 1) then
             1
Error: Unexpected junk after ELSE statement at (1)
Ising.f90:65:15:

     else if (1 < i < L .AND. j == L) then
           1
Error: Unexpected junk after ELSE statement at (1)

3 ответа

Лучший ответ

L = UBOUND(OldThing, 1)   !assumes it is square!
ALLOCATE(newthing(0:L+1, 0:L+1) )
DO I = 1, L
  DO J = 1, L
    NewThing(I,j) = OldThing(I,j)
  ENDDO 
ENDDO

! Probably a derivative to extrapolate the outliers is better...
! Kindergarten example below is for simplicity. 
DO I= 1, L
  NewThing(0,(I))= OldThing(1,I)
  NewThing(0,(I))= OldThing(1,I)
  NewThing(0,(I))= OldThing(1,I)
  NewThing(0,(I))= OldThing(1,I)
ENDDO

NewThing(0  ,  0) = OldThing(1,1)
NewThing(0,  L+1) = OldThing(1,L)
NewThing(L+1,  0) = OldThing(L,1)
NewThing(L+1,L+1) = OldThing(L,L)

!then one is always within the bounds... And the normal case is executed.
E = E + NewThing(I-1,j) + NewThing(i+1,j) + NewThing(i,j-1) + NewThing(i,j+1)

Неожиданный мусор после еще?

ELSE() print *, "x did not = 1"
    1
Error: Unexpected junk after ELSE statement at (1)

program hello
x = 1
IF(x==1) print *, "Hello"
IF(x==1) x=2
IF(x==1) print *, "Oh it didnt work..."
ELSE() print *, "x did not = 1 yay it worked"
end program hello

Ответы
1

        program hello

        x = 1
        if ( x == 1) print *, 'hello'
        if ( x == 1) x=2
 25     if ( x == 1) then
            print *, "oh it didn't work..."
        else
            print *, "x did not = 1 yay it worked"
        endif

        end program hello

Другие вопросы по теме

Fortran Online Compiler

Write, Run & Share Fortran code online using OneCompiler’s Fortran online compiler for free. It’s one of the robust, feature-rich online compilers for Fortran language, running on the latest version 7. Getting started with the OneCompiler’s Fortran compiler is simple and pretty fast. The editor shows sample boilerplate code when you choose language as Fortran and start coding.

Read inputs from stdin

OneCompiler’s Fortran online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample Fortran program which takes name as input and prints hello message with your name.

program hello
  character :: name*30
  read *, name
	print *, "Hello ", name
end program hello

About Fortran

Fortran language was initially developed for scientific calculations by IBM in 1957. It has a number of in-built functions to perform mathematical calculations and is ideal for applications which has more mathematical calculations.

Syntax help

Data Types

Variables

Variable is a name given to the storage area in order to manipulate them in our programs.

data type :: variable_name

Arrays

Array is a collection of similar data which is stored in continuous memory addresses.

Syntax

data-type, dimension (x,y) :: array-name

Example

integer, dimension(3,3) :: cube

Loops

1. Do:

Do is used to execute a set of statement(s) iteratively when a given condition is true and the loop variable must be an integer.

do i = start, stop [,step]    
   ! code
end do

2. Do-While:

Do-While is used to execute a set of statement(s) iteratively when a given condition is true.

do while (condition) 
   !Code
end do

3. If:

If is used to execute a set of statements based on a condition.

if (logical-expression) then      
   !Code  
end if

4. If-Else:

If is used to execute a set of statements based on a condition and execute another set of statements present in else block, if condition specified in If block fails.

if (logical-expression) then     
   !code when the condition is true
else
   !code when the condition fails
end if

5. Case:

Case is similar to switch in C language.

[name:] select case (regular-expression) 
   case (value1)          
   ! code for value 1          
   ... case (value2)           
   ! code for value 2           
   ...       
   case default          
   ! default code          
   ...   
end select [name]

Hello everyone,

I’m recently seeing this error when running sshuttle on my machine with the nft backend:

Error: syntax error, unexpected junk, expecting end of file or newline or semicolon
add rule inet sshuttle-ipv6-12300 sshuttle-ipv6-12300 ip6 daddr fe80::52e0:39ff:fe5e:a2a4%wlp108s0 udp dport 53 redirect to :12299

Has anyone else encountered this?
Here’s the full command and log:

$ sshuttle --dns -v  --method=nft -r USER@HOST 
Starting sshuttle proxy (version 1.0.5).
fw: Starting firewall with Python version 3.10.2
fw: ready method name nft.
c : IPv6 enabled: Using default IPv6 listen address ::1
c : Method: nft
c : IPv4: on
c : IPv6: on
c : UDP : off (not available with nft method)
c : DNS : on
c : User: off (not available with nft method)
c : Subnets to forward through remote host (type, IP, cidr mask width, startPort, endPort):
...
c : Subnets to exclude from forwarding:
...
c : DNS requests normally directed at these servers will be redirected to remote:
c :   (<AddressFamily.AF_INET: 2>, '192.168.1.1')
c :   (<AddressFamily.AF_INET6: 10>, 'fe80::52e0:39ff:fe5e:a2a4%wlp108s0')
c : TCP redirector listening on ('::1', 12300, 0, 0).
c : TCP redirector listening on ('127.0.0.1', 12300).
c : DNS listening on ('::1', 12299, 0, 0).
c : DNS listening on ('127.0.0.1', 12299).
c : Starting client with Python version 3.10.2
c : Connecting to server...
 s: Starting server with Python version 3.6.8
 s: latency control setting = True
 s: auto-nets:False
c : Connected to server.
fw: setting up.
fw: nft add table inet sshuttle-ipv6-12300 
fw: nft add chain inet sshuttle-ipv6-12300 prerouting { type nat hook prerouting priority -100; policy accept; }
fw: nft add chain inet sshuttle-ipv6-12300 output { type nat hook output priority -100; policy accept; }
fw: nft add chain inet sshuttle-ipv6-12300 sshuttle-ipv6-12300
fw: nft flush chain inet sshuttle-ipv6-12300 sshuttle-ipv6-12300
fw: nft add rule inet sshuttle-ipv6-12300 output jump sshuttle-ipv6-12300
fw: nft add rule inet sshuttle-ipv6-12300 prerouting jump sshuttle-ipv6-12300
fw: nft add rule inet sshuttle-ipv6-12300 sshuttle-ipv6-12300 meta nfproto != ipv6 return
fw: nft add rule inet sshuttle-ipv6-12300 sshuttle-ipv6-12300 ip6 hoplimit == 63 return
fw: nft add rule inet sshuttle-ipv6-12300 sshuttle-ipv6-12300 ip6 daddr fe80::52e0:39ff:fe5e:a2a4%wlp108s0 udp dport 53 redirect to :12299
Error: syntax error, unexpected junk, expecting end of file or newline or semicolon
add rule inet sshuttle-ipv6-12300 sshuttle-ipv6-12300 ip6 daddr fe80::52e0:39ff:fe5e:a2a4%wlp108s0 udp dport 53 redirect to :12299
                                                                                         ^
fw: undoing changes.
fw: nft delete table inet sshuttle-ipv6-12300 
fw: nft delete table inet sshuttle-ipv4-12300 
Error: Could not process rule: No such file or directory
delete table inet sshuttle-ipv4-12300 
                  ^^^^^^^^^^^^^^^^^^^
fw: fw: error: fw: ['nft', 'delete table', 'inet', 'sshuttle-ipv4-12300', ''] returned 1
fw: fatal: fw: ['nft', 'add rule', 'inet', 'sshuttle-ipv6-12300', 'sshuttle-ipv6-12300', 'ip6', 'daddr fe80::52e0:39ff:fe5e:a2a4%wlp108s0', 'udp dport 53', 'redirect to :12299'] returned 1
c : fatal: cleanup: ['/usr/bin/sudo', '-p', '[local sudo] Password: ', '/usr/bin/env', 'PYTHONPATH=/usr/lib/python3.10/site-packages', '/usr/bin/python', '/usr/bin/sshuttle', '-v', '--method', 'nft', '--firewall'] returned 99

These are the various versions I’m using:

$ sshuttle --version
1.0.5
$ python --version
Python 3.10.2
$ nft --version
nftables v1.0.1 (Fearless Fosdick #3)
$ uname -r
5.15.19-1-MANJARO

Any help or tips for debugging are appreciated.