Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

remove speculative code from copygb2 #821

Open
edwardhartnett opened this issue Jan 23, 2025 · 0 comments
Open

remove speculative code from copygb2 #821

edwardhartnett opened this issue Jan 23, 2025 · 0 comments
Assignees
Labels
enhancement New feature or request

Comments

@edwardhartnett
Copy link
Contributor

edwardhartnett commented Jan 23, 2025

In copygb2 we have:

              call errmsg('Option -A Ignored...Not yet implemented.')
              LAB = 1      ! default value, since -A option not yet implemented.
              AB = -1.E30  ! default value, since -A option not yet implemented.
           ELSEIF(CARG(L:L) .EQ. 'B') THEN
              IF(L .EQ. LARG) THEN
                 L = 0
                 CALL GETARG(IARG, CARG)
                 LARG = LEN_TRIM(CARG)
                 IARG = IARG + 1
              ENDIF
              LCGB = LARG - L
              CGB = CARG(L + 1:LARG)
              L=LARG
              call errmsg('Option -B Ignored...Not yet implemented.')
              LCGB = 1     ! default value, since -B option not yet implemented.
              CGB = ' '    ! default value, since -B option not yet implemented.
           ELSEIF(CARG(L:L) .EQ. 'b') THEN
              IF(L .EQ. LARG) THEN
                 L = 0
                 CALL GETARG(IARG, CARG)
                 LARG = LEN_TRIM(CARG)
                 IARG = IARG + 1
              ENDIF
              LCXB = LARG - L
              CXB = CARG(L + 1:LARG)
              L = LARG
              call errmsg('Option -b Ignored...Not yet implemented.')
              LCXB = 1     ! default value, since -B option not yet implemented.
              CXB = ' '    ! default value, since -B option not yet implemented.

So these unimplemented options need to be removed.

@edwardhartnett edwardhartnett self-assigned this Jan 23, 2025
@edwardhartnett edwardhartnett added the enhancement New feature or request label Jan 23, 2025
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
enhancement New feature or request
Projects
Status: No status
Development

No branches or pull requests

1 participant